


C 64 4 128 


SUPERGAME: HADES NEBULA' 


MSX 


SUPERGAME: WHO DARES WINS I 


PROGRAMMI: PUZZLER ★ CIAPA NO PROGRAMMI: DISK MSX BOOT ★ 


ARTICOLI: FAST DATA ★ L'OROLOGIO EASY BASE ★ MULTIBAUDRATE 


INTERNO DEL COMMODORE E LA ARTICOLI: ESPERIMENTI BASIC ★ 


ROUTINE DELLO SCROLL LA"MENTE" DEL COMPUTER 





scop 

LERMS 




I È PIÙ COMODO 


RI TUTTE 
fE JACKSON. 







R/Sfi 
É TROVI L 


I PRIVILEGI RISERVATI LE TARIFFE DI ABBONAMENE 

AGLI ABBONATI JACKSON JACKSON 1987-1988 


a genda monografica Jackson. 

L'agenda a scansione settimanale 
Jackson, oltre a riprendere la prestigiosa linea 
editoriale di Nautical Quarterly e Automobile 
Quarterly, ha carattere monografico e 
nell'edizione '88, è dedicata alla fabbricazione 
di un chip, con splendide immagini a colori. 

L'edizione 1988 sarà invia t o soltanto a coloro 
che risulteranno rego l armente a bbonati al 30 


novembre 1987 ad alm 
di abbonamento sia superiore a lire 30.000 

Naturalmente chi sottoscriverà o rinnoverà 
l'abbonamento dopo tale data, acquisirà il diritto 
a ricevere automaticamente l'edizione '89. 

L'agenda Jackson 1988 sarà posta in 
vendita anche in edicola. 


isparmio assicurato. 

Gli abbonati òlle riviste Jackson 
possono contare su un duplice risparmio: una 
tariffa privilegiata, come indicato nella tabella e 
la garanzia del prezzo bloccato per l’intera 
durata del proprio abbonamento. 

□ conto 20% sui libri Jackson. 

È questo un altro privilegio riservato 
agli abbonati Jackson: lo sconto del 20% su tutti 
i libri del catalogo Jackson, per acquisti effettuati 
fino al 29/2/1988 direttamente dall'editore. 

Dopo tale data, e per tutta la durata 
dell’abbonamento, tale sconto sarà del 10%. 

fferte speciali e riservate. 

Nel corso dell'anno, periodicamente, 
saranno inviate alcune offerte speciali, che il 
Gruppo Editoriale Jackson riserverà ai soli 
abbonati. Tali offerte consentiranno l'acquisto di 


□ 


□ 



RIVISTA 

NUMERI 

TARIFFE 

ABBONAMENTO 

PROFESSI OPALI 

Industria oggi 

Elettronica oggi 

EO News Settimanale 
Automazione Oggi 

10 

20 

L 41000 anziché 1 50 000 

; rènne anzi nei lOCCOO 

40 

20 

L 79.500 

’ - «Il irz : L Ai 000 

44 OOP. anziché L 55 000 


Videotel Magazme 

6 

L 20 000 anziché L 24 000 


Murata Oggi 

11 

[ 40 000 anziché L <0 500 


Intorniate 0» Settimanale 
Compulergrate & Appécazvx» 

40 

6 

L 30.000 anziché L 36.000 


PC World Magarne 

PC W Magarne ♦ PC Floppy 

HT 

11 

L 44 000 anziché L 55.000 

. cjv Av anziché L -32 000 

■• «> 

PERSONAL 

E ROME 

Siawcom 64 & 128 (cassetta) 
Noi 128 & 64 (cassetta) 

Noi 128 & 64 (dsco) 

Olivetti Prodest User 

La rivista di Atan 

Compuscuola 

10 

6 

6 

10 

.. 01 AIA anziché L S2 5 OC 

' ■«. inzicne: aaìiiu 

■■■ « V. Ai ... 

i 16 000 anziché l 60.000 

L. 20 000 anziché L 24.000 

L. 24.000 anziché L 30.000* 

L 32.000 anziché C 40.000 

HOBBY E 

Fare Elettronica 

Strumenti Musicali 

12 

1 39.000 anziché L 48 000 

L 35.000 anziché L 44.000 

COLTURA 

E PRESTIGIO 

Nautical Quarterly 

Automobile Quarleily 
(solo nella versione lusso, 
con copertina rigida) 


L 70.000 1 anziché L. 80.000 


N.B. Per abbonamenti all enerò le tirine doerenno estere raddoppiate. 
Non è prevista la spedinone eli aerea. 

selezioni di libri, grandi opere e software, a 
condizioni particolarissime. 

bbonarsi è facile! 

Utilizzate il modulo di conto correnti 
postale già predisposto e/o la speciale 'busta- 
abbonamenti* inseriti in questa rivista. 


□ 


I È PIÙ FACILE 


IRMI 

A FORTUNA. 



I FANTASTICI PREMI 
* JACKSON 


I straordinaria Volvo 480 ES. 

Linea morbida, filante, tentatrice: 1721 generosi cc, una 
perfetta tenuta di strada. Neppure l'aria le resiste! 

3 favolosi Personal Computer 
professionali della _ 

Honeywell Bull. 

nuovissima generazione, « “T 

a" ondati ; ••• : prima ! 

IflM -j 

SMAU 87. k J H 


304 ptemi da sorteggiate Ila lutti gli . 
480 ES 11721 cc I Gli alili 303 ptemi ( 


JOO simpatici telefoni rossi. 

Realizzati appositamente per i vindtori del concorso 
k Jackson, superleggeri, a tastiera, dotati della 
^ ^^^^^^funzione di chiamata automatica. 
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M SUPERGAME C64&128 * 



S iete pronti od af- 
frontare un vero 
arcade game allo 
giapponese dell'ultima 
generazione. Si tratta 
di Hades Nebula un 
nuovissimo gioco della 
Nexus e presentato in 
esclusiva della serie J 
Soft Compilation 
Hades Nebula ' chiede quattro 
capacità per essere giocato ed 
apprezzato a fondo: una passio- 
ne per i super veloci shoot'em up, 
una certo forza e resistenza nel 
vostro dito preferito per premere il 
pulsonte di sparo, un buon gusto 
per la grafica ed infine un orec- 
chio da intenditore per la musica 
e gli effetti sonori del Commodo- 
re. Non ci credete? Allora, primo 
di leggere la spiegazione, date 
subito un occhiata al demo del 

IL GIOCO 

Per entrare nella giusta sintonia 
del gioco dovete tare correre la 
vostra immaginazione nel futuro 
più lontano 

Siamo nel 2124 e non è per niente 
un buon periodo. Tutto quello che 
fino a quel momento aveva reso 
la vita piacevole si sta esaurendo. 
Tecnici e scienziati *del Comitoto 
Mondiale per l'Energia (Cem) so- 
no corsi al riparo ed hanno for- 
mulato il piano Questo semplice 
nome indica il progetto che do- 



vrebbe salvare il mondo II piano 
coinvolge dieci enormi astronavi 
equipaggiate con l'acceleratore 
Meason (un congegno che au- 
mento notevolmente la velocità) e 
che permette di catapultarle verso 
l'angolo più distante dell'Univer- 
so. Un lungo viaggio che comun- 
que permette di recuperare l'e- 
nergia indispensabile per la so- 
pravvivenza dello terra. 

Questo è il progetto ma come si 
so, tra il dire e il fare c'è sempre 
qualcosa di mezzo. Questa volta 
l'intoppo viene da un maligno im- 
peratore chiamato Hades. Dalla 
sua fortezza localizzata su un de- 
solato pianeta chiamato Sodini, 
ha inviato la sua amata per con- 
trastare il piano del Cem. Il suo 
ordine è di aspettare le astronavi 
terrestri alle coordinate di arrivo, 
catturare l'equipaggio e vendere i 
rottomi delle astronavi. 

Questo è quello che effettivamen- 
te avviene ma fortunatamente la 
Colony 7 riesce a salvarsi. Un 
guasto al computer di bordo ha 
spedito la nave in una dimensione 
temporale antecedente di due 


anni l'arrivo previsto 
dalle amate di Ha- 
dian. Colony 7 inizia la 
ricerca delle risorse di 
energia perlustrando 
anche quella che è 
meglio conosciuta co- 
me la nebuloso di 
Orion. Almeno cosi 
era chiamata prima 
che lo piovra Hades la conqui- 
stasse e la trasformasse in un ter- 
ritorio minato e super protetto. Da 
nebuloso di Orion cosi siamo arri- 
vati alla nebulosa di Hades. 

Cosi inizia una vera sfida alle di- 
fese del malefico imperatore con 
una sola possibilità di uscito: la 
vittoria per la libertà della Colony 
7 è soprattutto per la salvezza 
della terra siamo allo Nebulosa di 
Hades e dobbiamo combattere 
per la libertà e per salvare la 
terra. 


e raggiungere il punteggio più al- 
to. Durante la sfida i ribelli vi pos- 
sono aiutare fornendovi dei pezzi 
che migliorano lo vostra astrona- 
ve. Per recuperali dovete sparare 
una sola volta contro le piattafor- 
me al suolo e quindi passare so- 
pra all'oggetto. Fate attenzione 
perché qualche volta invece del 
materiale tecnico possono appa- 
rire olTimprowiso dei proiettili a 





forma di stella. 

Le attrezzature non devono esse- 
re colpite altrimenti si distruggono 
e una volta recuperate permetto- 
no di aumentare la velocità, am- 
pliare il fronte del fuoco e la dota- 
zione delle vostre armi. 

Questo comunque è l'elenco 
completo degli gli accessori che vi 
forniscono i ribelli: 

Extra velocità 
Estensore alare 
Rotori frontali 
Rotori laterali 
Laser semplice 
Laser triplo 
Iperspazio 

I COMANDI 

Per giocare a Hades Nebula po- 
tete usare il joystick oppure la ta- 
stiera. I tasti funzione determina- 
no alcune caratteristiche del 
gioco: 

FI - Musica od effetti sonori 
F3 - Uno o due giocatori 
F5 - Pausa 

F7 - Termina/ricomincia 


TASTIERA 

Q = Su 

A = Giù 

0 = Sinistro 

P = Destro 

SPAZIO Fuoc o 
RETURN = Turbo 


o c 

PTr* 

F 

rii. 


ISTRUZIONI PER 
IL CARICAMENTO 

Rimuovere tutte le cartucce, colle- 
gate soltanto il registratore e il jo- 
ystick nella porta che volete. 
Accendete il computer ed inserite 
la cassetta nel reaistratore con il 
nastro riavvolto dall'inizio e pre- 
mete 

SHIFT/RUN STOP 

e quindi il tasto PLAY sul registra- 
tore. 


8 







9 



PUZZLER 

di M. Tuttle - trad. ed adati, di M. Anticoli 


E cco un gioco che mette olio provo la capacità 
di visualizzazione dell'utente 
Questo programma funziono con il C 64 e il Com- 
modore 128 in modo 64. 

All'inizio verranno mostrati due "puzzle" multicolo- 
re di aspetto simile. 

Entrambe le griglie contengono gli stessi blocchi. 

Il fine del gioco è formare il puzzle di sinistra come 
quello di destra. 


COSTRUZIONE DEL PUZZLE 

All'inizio del programma bisogna scegliere le di- 
mensioni della griglio che contiene il puzzle, preci- 
samente si devono immettere il numero di righe e di 
colonne, naturalmente un puzzle con poche righe e 
colonne è molto facile da risolvere. 

Dopo bisogna introdurre i numeri dei colori che il 
puzzle deve usare, un puzzle con pochi colori è 
semplice do risolvere. 

Dopo aver introdotto i doti della griglia bisognerà 
attendere qualche secondo per lo costruzione dei 
due puzzle. 

Ogni puzzle è costruito in modo cosuole e un puzzle 
nuovo è differente do quello precedente. 

Per risolvere il puzzle si nonno o disposizione alcuni 
secondi, il tempo varia dallo complessità del puzzle, 
il computer, per il puzzle più piccolo, dà circa 40 
secondi di tempo 

Giocando con PUZZLER sono possibili due differen- 
ti operazioni: 

1) Ruotare un blocco di novanta gradi. 

2) Prendere un blocco e muoverlo in una nuovo 
posizione. 

Per muoversi nella griglia bisogna usare il joystick in 
porta 2. 

La posizione è indicata da un piccolo quadrato. 
Per prendere un blocco e muoverlo in una nuova 
posizione bisogno premere il tasto fire: il quadrato 
cambierà colore e significa che si sta spostando un 
pezzo, poi muovere nello posizione dove si vuole 
mettere il blocco e premere ancora fire. Il blocco 
che c'era primo prende la posizione dell'altro bloc- 
co appena spostato. 

Ogni blocco consiste di auattro quadratini colorati. 
Per ruotare un blocco di novanta gradi bisogno 
remere il tasto fire due volte, 
h ultimo consiglio, primo di fare una partita seria è 
meglio fare qualche partito di allenamento e occhio 
al puzzle!!! 


10 REM •*• C-6« PUZZLER ••• 

100 GOSUBA60 

1 1 0 1FT<T1/60THENPOKE53269.0ìGOT 0790 
120 A-1NTIT-T1/60» .S> :B-INTlA/60) 

130 PRINT”{H0MEH3 CUR.GIU)"SPC(17)B"ICU 
R.SJN|:"i 

’ « 0 Z$-STR»l A-6U*B ) : Z*-RI0HT»( ZI. LENI Z$ ) 
-1 ) : IFLENI Z$ ) - 1THENPR 1 NT"0" : 

ISO PR1NTZ» 

160 A-N0TPEEKIS6320) 

170 R.R*SGN ( IAAND2)-(AAND’ ) ) 

180 C«C*SGN{ (AAND8)-(AAND«)) 

190 IFR<0THENR-0 
200 IFR>-R3THENH-R3-’1 
210 IFC<0THENC-0 
220 IFO-C3THENC-C3-1 

230 POKE532«8.CS* ’ò*C : POKES32A9.RS* lò*R 
2*0 1 F ( A AND1 6 )*0THEN1 1 0 

250 IFF-OTHENF*’ sPOKES3287 , ’ A : HR-R : CC-C : 
WAITS6320, 1 6 : GOTO’ 10 

260 F-0: IFRR-RANDCC-CTHEMGOSUB300:GOTO28 
0 

270 GOSUB33G 

280 P0K£S3287.’5:*AITS6320.’6:1FA$<>B$TH 
290 GOTOSOO 

300 B-C' •8;«R-C*C*«' :G0SUB«20 

310 P0KEB. PEEKt A ) :P0KEB» ’ .PEEKt A* ' ) 

320 POKEB-*0,PEEKlA-RC):P0KEB-«' .PEEKt A* 
ItC»' ) : RETURN 

330 GOSUB360 : B»C1 •60*R*2*C*«’ :G0SUB3’0 
3*0 B-C1*S0*RR-2*CC-*' :A-AAiC0T03’0 
360 REM ••• MUOVE 

360 AA-SS»2*NC*RR*2*CC:A«SS»2*NC*R«C*C 
370 D-PEEKU ) tPOKEA . PEEKt A A ) :P0KEAA.D 
380 0-PEEKtA-' ):P0KEA*' .PEEKtAAO ):P0KEA 
A ♦ 1 , D 

390 D*PEEK(A*NC ì : POK E A *NC,PEEK(AA*NC):PO 

«00 D-PEEK(À*NC-’ )|P0KEA*NC«’ ,PEEK(AA«NC 
♦1 ) : POKEAA'NC* ’ , D : RETURN 
«10 REM *•• RUOTA 
«20 A-SS»2*NC*R-C-C 
«30 D-PEEKtA):P0KEA,PEEK(A*NC) 

««0 P0KEA ♦NC , PEEK ( A * NC • 1 } 

«SO P0KEA*NC*1 , PEEKt A* 1 ) :P0KEA^1 .Di RETUR 

*60 P0KES3269.0iA$-""!P0KE5328O.6:POKES3 
281 .6 

«70 PRÌNT , ICLRl"CHR*t'*)SPCt16)'M2 CUR.G 
IUIlWHITEItSH P tUZZLER" : PRINTSPCt 16 ) 
*17 CBH TI* 


IO 



\ ^^gramm ^7 


3 FORT-96272T096299 : POKET ,0 : NEXT : P0KE9 
6296.19 

3 INPUT" {HOME) 17 CUR.GIUIISH NIUMERO D 
I RIGHE ( 3 SPC } ( 2-7 )" i R3 
3 IFR3<20RR3>7THEN690 

3 INPUT’IHOMEIHO CUR.GIUIISH NIUMERO 
DI COLONNE ( 2-7 )" iC3 
3 IFC3<20RC3>7THEN910 

3 INPUT" ( NONE 1(13 CUR.GIUIISH NIUMERO 
DI COLORI (2-16)"jCO 
3 IFCO<2ORCO>1*THEN530 

0 PRINT-12 CUR.GIUIISH A I TTENDERE PREG 

2-S1 *2 I 


NEXT : B$-A$ 

3 A-296*PEEK(66)*PEEK(69) 

3 SS-296»PEEK(A*6 J.pEEKl A- ? 
3 FORR-OTOR3"' :FORC-OTOC3-' 


l-INTIR 


6 1 0 IFBTHENG0SUB620: B - B - 1 :GOT0610 
620 NEXT : NEXT 

630 F0RR-0T0R3-1 : FORC-OTOC3*' 

660 RR-1NTIRNDI ’ » • R 3 3 : CC - I NT I RND I I )*C3) : 
COSUB360 : NEXT : NEXT 

660 PRINT"(CLRI"SPC(17)" (CUR.GIUIISH P)U 
ZZLER" 

660 FORA-’TONRiFOKB.'TuNCiPOKECI'AO'A-B. 
PEEK I SS * E ) 

670 P0KES1*60«A»B, I60:E-E* 1 : NEXT: NEXT 
680 F0RA-1T0NR:F0RB-1T0NC:P0KEC2«60»A*B. 
ASC(MID$(B$,C*1 I ) 

690 P0KES2* IO* A «B, 160:G-G* 1 : NEXT: NEXT 
700 P0XE2060,16 : poKE93287.19:POKE93277,1 
: POKE9327 I , I 

710 F0RA-896T0926:READB:P0KEA ,B:NEXT 
720 FORA-929T0998:POKEA.O:NEXT 
730 RS-166-6»NR : CS- • 02- 6 • NC : R-0 : C-0 
7 NO T-NR»NC*3:POKE93269.1 : T I l-’OOOOOO" : R 
ETURN 

790 DAT A 29 9*192. 0,128, 66, 0,128, 66,0 
760 DATA 128. 66,0. 128,6 6.0,128.66.0 
7 70 DATA 128, 66,0. 12 8.66.0, 128.66,0 
780 DATA299, 192 

790 Z'-90:Z2-10!Z3--2:G0SUB830:PRINT" (HO 
MEI ICUR.G1U|"SPC(9)’I»ELL0WI |SH I IL 
TEMPO E* TERMINATO!": GOTO820 
800 Z1"10:Z2*90:Z3*2 : GOSU B8 30 
6’0 PR I NT" I HOME I ( CUR . G I U I "SPC I 9 I " 1 1 ELLOW 
IISH HIISH A I ( SH 11 ISH RIISH DISK 
SIISH OlISH LIISH TIISH 01 ISH 1HSH 
LI ISH P I ( SH U I ( 2 SH ZIISH LIISH El 

820 PR1NTTABI8I" (CUR.GIUIISH PIISH RIISH 


3 POKE96289,D:POKE962V2.0:POKE9«286.90 
:POKE96287.60:POKE9«276.33 
3 POKE96283.33:PONE9«290,33:FORF’-Z’TO 
Z2STEPZ 3: POKE96273.F! : P0KE96287 .F’ 

3 FORF2*3OTO1STEP-9:POKE96280.F2:POKE9 
3280 ,F2: NEXTF2 , FI 

3 P0KE5 6276, 32 : P0KE9 628 3.32: POKE96 290, 
32:RETURN 

3 POKE96277 ,26:POKE96276,23:P0KE96273. 
30:RETURN 


GUIDA ALL'INPUT 
C64-C128 


TABELLA DI CONVERSIONE 

{HOME} HOME 

{CLR} PULIZIA SCHERMO 

(CUR.SU) CURSORE IN ALTO 

{ CUR.GIU } CURSORE IN BASSO 

( CUR.DES } CURSORE A DESTRA 

(CUR.SIN} CURSORE A SINISTRA 

{SPC} SPAZIO 

{RVSON} .... REVERSE ON 
{RVS OFF} .... REVERSE OFF 

{INST} INSERT 

{FI} TASTO FI 

{F2} TASTO F2 

{F3} TASTO F3 

{F4} TASTO F4 

{F5) TASTO F5 

{F6} TASTO F6 

{F7} TASTO F7 

{F8} TASTO F8 

{BLACK} COL. NERO ( CTRL+ 1 } 

{WHITE} COL. BIANCO (CTRL +2) 

{RED} COL. ROSSO (CTRL+3) 

{CYAN} COL. CIANO (CTRL+4) 

{PURPLE} COL. PORPORA (CTRL+5) 

{GREEN} COL. VERDE (CTRL +6} 

{BLUE} COL. BLU (CTRL +7} 

{YELLOW} COL GIALLO (CTRL+81 

{ORANGE} . COL. ARANCIO (CBM+ I) 

{ BROWN } COL. MARRONE (CBM+2) 

{LT. RED} COL ROSSO CHIARO (CBM+3) 

(GRAYÌ) COL GRIGIO I (CBM+4) 

{GRAY2} COL. GRIGIO 2 (CBM+5} 

{LT. GREEN} COL VERDE CHIARO (CBM+6) 

{LT BLUE} .... COL. BLU CHIARO ( CBM+7 ) 

{GRAY3} COL. GRIGIO 3 (CBM+8) 

NORME PER LA BATTITURA 

I caratteri grafici, ottenuti con la pressione dei 
tasti "Shifr e "CBM", sono codificati in modo 
da indicare il tasto da premere assieme a 
"Shift" o "CBM". 

Es. il cuoricino è codificato con (SH S}. Il nume- 
ro dentro le parentesi indica le volte che il tasto 
va premuto. 

NORME PER IL CARICAMENTO DEI 
PROGRAMMI SU CASSETTA 

Le istruzioni di caricamento del supergame ven- 
gono riportate nel contesto della relativa de- 
scrizione. Oltre al supergame sono registrati su 
nastro tutti gli altri programmi presentati su 
questo numero i quali vanno caricati, salvo di- 
versa indicazione, con: SHIFT / RUN STOP. 
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CIAPA NO 

di D. Berloncelli e M. Cardano 


Q uesto programmo avrebbe dovuto essere, 
nelle intenzioni originarie degli autori, molto 
più breve e schematico nello sua scrittura; ma in 
seguito a ripetuti ritocchi e perfezionamenti si è al- 
lungato un poco, raggiungendo anche un discreto 
grado di oculatezza tattica per quel che riguarda la 
giocata dei tre contendenti manovrati dal compu- 
ter. 

Il programma è realizzato in modo da fungere an- 
che da dimostratore, ossia continua a giocare per 
conto proprio fino a che la pressione di un tasto (fi - 
inizio, t3-istruzioni) provoca l'inizio della partita vera 
e propria. 

SCOPO DEL GIOCO 

Il fine del gioco è quello di "non prendere", cioè di 
fare meno punti possibile. La gerarchia e il valore 
delle carte sono riportati in figura 1 . La regola prin- 
cipale è quella di rispondere sempre di seme del 
primo giocatore, a meno che se ne sia sprovvisti; in 
questo caso si può scartare una carta qualsiasi, 
secondo convenienza. E importante inoltre cercare 
di non prendere nell'ultima mano, poiché in questo 
caso ci si vedrebbe assegnare anche tutti i terzi di 
punto eccedenti degli avversari, secondo una rego- 
la che arrotonda a 1 1 la somma dei punti, che altri- 
menti sarebbe di 10 e 2/3. All'inizio del gioco, insie- 
me al vostro nome (che deve essere di almeno 3 
lettere!) è richiesto il punteggio da superare. Quan- 
do un giocatore oltrepassa questo limite, la partita 
finisce e chi in quel momento ho meno punti è il 
vincitore. 



DESCRIZIONE DEL PROGRAMMA 

All'inizio si ho la possibilità di richiedere le istruzioni 
oppure di passare direttamente al gioco. In input 
sono richiesti, come detto, il nome e il punteggio 
che è necessario superare per porre termine alla 
portita. I nomi dei tre avversari sono sorteggiati tra 
quelli di molti personaggi contenuti nei Data; essi 
possono quindi essere modificati a piacimento. Do- 
po questi preliminari il programma procede alla 
scelta del mazziere ed alla distribuzione delle carte. 
Contemporaneamente quelle relative al giocatore 
vero e proprio vengono visualizzate sullo schermo e 
quindi ordinate per seme, in modo da avere una 
chiara visione delle carte più convenienti da gio- 
care. 

Il gioco si svolge in senso antiorario, a partire dal 
giocatore alla destra del mazziere. Per scegliere la 
carta che si vuole mettere in tavolo è necessario 
premere il tasto corrispondente alla posizione della 
stessa tra quelli contrassegnati da 1 al numero di 
carte ancora in mano; per maggior sicurezza viene 
richiesta una confermo dal calcolatore, che control- 
la anche la validità della giocato. Al termine di cia- 
scuna mano viene calcolato e visualizzato il pun- 
teggio dei concorrenti, ed in coso di superamento 
del limite prestabilito viene proclamato il vincitore 
della portilo. 


COME RAGIONA IL COMPUTER 

L'algoritmo che svolge tale funzione non ho la pre- 
tesa di ricercare sempre la soluzione ottimale, in 
quanto ciò comporterebbe tempi troppo lunghi e 
snervanti attese, a scapito della snellezza del pro- 
gramma; inoltre, quella che sembrerebbe la scelta 
migliore dal punto di vista logico non sempre si rive- 
la la più conveniente rispetto alla distribuzione delle 
corte. Quindi, nel coso l'algoritmo non trovasse in 
prima analisi una soluzione priva di alternative, o 
indiscutibilmente vantaggiosa, procede ad uno ra- 
gionevole serie di tentativi alla ricerca di una gioca- 
ta il più vicino possibile a quella ottimale. Vediamo 
ora in dettaglio le tre situazioni distinte che si posso- 
no presentare: 

a) in tavola non ci sono carte (linee 7000-7100), 

b) vi è la possibilità di rispondere al seme che co- 
manda il gioco, ossia quello della prima carta (linee 
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12000 - 121 10 ); 

e) si è sprowisti di quel seme, e perciò si può scor- 
tare uno carta qualsiasi (linee 15000-15240), 

Nel caso a) gli obiettivi principali da conseguire 
sono due: giocare una carta che sia la più bassa 
possibile e, nel contempo, prediligere i semi più po- 
veri di carte, in modo da formare dei 'buchi' che 
permettano in seguito di scartare. 

A questo proposito le carte vengono divise inizial- 
mente seme per seme, e per ognuno è assegnato 
una penalità in base al valore delle carte, come 
illustrato in figura 2; penalità aggiuntive sono previ- 
ste per quei semi in cui la carta più bassa ha un 
valore elevato. Il calcolatore, dopo avere reperito il 
seme con la penalità minore, ne giocherà la carta di 
minor valore. Ovviamente, non vengono presi in 
considerazione eventuali semi 'vuoti', ossia con 
penalità uguale a zero. 

Quando si presenta il casa b), l'eventualità più 
semplice è che si abbia una sola carta di quel seme, 
altrimenti si hanno due sottocasi: se c'è la possibili- 
tà di evitare la presa si gioca la carta più alta che 
non prende, dando la precedenza all'asso: se inve- 
ce le carte in mano di quel seme sono tutte più alte 
di quelle in tavola, allora si gioca la più bassa, que- 
sta volta escludendo l'asso. Una situazione partico- 
lare si presenta quando si è gli ultimi a giocare: in 
tal caso può essere conveniente giocare una carta 
alta (un due o un tre), se non vi sono punti in tavola. 
Nel caso non si abbia nessuna carta per rispondere 
al seme (caso c)), si favoriscono le carte che pren- 
derebbero di sicuro (con precedenza all'asso), con- 
siderando quelle giocate in precedenza. Un altro 
fattore decisionale è dato dal numero di carte per 
ogni seme, in quanto è preferibile privilegiare, an- 
che in questo caso, quei semi poveri di carte. 


ULTERIORI PRECISAZIONI 

Ogni corta è individuata da un numero compreso 
fra 0 e 39, le decine rappresentano il seme, le unità 
la gerarchia. Quindi, trasformando i valori numerici 
in stringhe, si può facilmente risalire al seme o al 
valore delle carte: ad esempio, se stiamo conside- 
rando la carta numero 20, abbiamo: 
seme: lefl $(str$(20),l ) = "2', che corrisponde a 
quadri (vedi figura 4); 

gerarchia: righi $(str$(20),l ) = "0", che corrispon- 
de al 4 (vedi figura 1 ). 

Per riordinare le corte visibili è stato scelto l'algorit- 
mo denominato "Straight Exchange Sort" (vedi fi- 
gura 3), che ha il vantaggio di non richiedere matri- 
ci di uso temporaneo: tutto l'ordinamento avviene 
all'inteno dell'array (del vettore) orginale, minimiz- 
zando lo spazio di occupazione di memoria, non- 
ché il tempo di trasferimento da un vettore all'altro. 
In più, per la sua brevità e semplicità, tale algoritmo 
è facilmente applicabile a qualsiasi tipo di vettore si 
voglia ordinare. 



Figura 3 - Esempio numerico di ordinamento mediarne "Straight 
Exchange Sort * 


Figura 2 ■ Penalità assegnate alle 
carte, divise per semi, a seconda 
del loro valore gerarchico. Le 
somme delle penalità sono conte- 
nute nello variabile PS(3). 


VARIABILI PRINCIPALI USATE 
NEL PROGRAMMA 

MZ$(3,9) Motrice delle carte già distribuite. 
CM$(3,9) Carte in mano ai 4 giocatori 
CG$(3,9) Carte già giocate. 

PT(3) Punteggi relativi alla mano. 

WG$(3,9) Matrice delle carte divise per seme. 
WQ(3) Numero di carte in mano per ogni seme. 
WK$(3,9) Indica delle carte in relazione a 
WG$(3,9). 

PS(3) Penalità di ogni seme. 



4 - Valore di LEFTSICMt, Il 
e corrispondente 
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1900 C0T01330 

imo CM$(0 t AN)-CM$(0,NC-'l ):NC-NC-1 
1 «Il 5 IFDM-1THENH-0:V-23i COSUB60000 : PR I NT 

1020 GOSUB630OO:GOSUB1 930:NC-NC*1 : NEXT : C 
OT030000 

1 930 H-8-I'*6:V-7:GOSUB60000 

19 38 SM-INT(VAL(CG*)/10) :VL-VAL(CG$)-SH« 

1939 MZ*(SM.VL>--L":CT$(I1 )-CG$ 

1990 GOSUB50090:PRINT*(CBM A ) { 3 SH CMCB 
M Sl’i :V-V1:GOSUBéOOOO:PRIItT"ISH B 
}"K*"(2 SPCMSH B } " ; 

1950 V-V1 :G0SUB60000!PRINT"1SH B) "KS$" 

{SH B } ” ; : V «V ♦ 1 : GOSUB60000 ìPRINT n {S I 
H B } ( 2 SPC)"K$“{SH Bl”; 

1960 v-vm :COSUB60000:PRINT“{CBM Z)(3 SH 
CHCBM X J " : 

1 A 65 V-V*' :H-H- ’ : G0SUB60000 : PRINTLEFT8 ( N 
M$(GC ) , 3 ) t 

IATO V-22:H-1 : GOSUB60000 : PHIHTH * ; :RETURN I 
1 300 REM 

1502 REM CONTROLLA SE POSSO GIOCARE LA C 
ARTA CHE HO SCELTO 
1505 REM 

1508 AN-ASC(G*)-99 

1510 SM-INT(VAL(CG8)/10):VL-VAL(CC*)-SM» 

1 0 : 1 P1 1 -OTHEN 1 AIO 
1515 S1-INT(VAL(CT»(0>)/10) 

1520 IFSM-S1THEN1910 
1523 C«»--F" 

1525 FORI2-OTONC-1 : I FS 1 -INT ( VAL ( CM* < 0 . 12 
))/10)THENC9$-"V* 

1530 NEXT 

1535 IFC9*--F"THENSC-1 :GOTO1910 
1590 H-9:V-29:GOSUB60000: PR INT" ( 1 1 CUR.D 
ES11RVS ON {ERRATO : RIPETIIRVS OFF!" 

; :FORII-1T02000:NEXT 
1550 G0SUB60000:PRINTN$; :GOTO1330 
2000 REM GIOCO CARTA 

2002 IFDM-1THENCETR*!lFR*-CHR$(133)THENR ! 
UN90 

2003 IFDM-1THENIFR8-CHR*(13*>THENRUN95 
2005 GOSUB5000 

2007 IFDM-1ANDGC-0THENCG*-CM*(0,CT) :AN-C ! 

2008 IFDM-1ANDGC-0THÉN1510 

2010 GOSUB20000 :H-0;V-23:GOSUB60000:PR2N 
TN*; : NEXTI 1 :G0T030000 
5000 G0SUB1 8000 

5010 IFDM-1THENGETR$:IFR$-CHR*(1 331THENR 
UN90 

5020 IFDM-1THENIFR$-CHR*(1 3DTHENRUN95 
6000 IFI170THEN12000 
7000 G0SUB1 7000 

7010 IFDM-1THENGETR*!lFR*-CHRI(1 331THENR 
UN90 

7020 IFDM-1THEMIFR»-CHR$(139)THENRUN95 I 
7060 SG-0 

7065 IFPS(SG)-0THENSG-SG*1 :G0T07065 
7070 F0RW3-SGT03iIFPS(H3XPS(SG)ANDPS(W3 
)>0THENS0-W3 
7080 NEXT:HH*-"90" 

7090 FORH3-OTOHQ(SC):IFVAL(HC*(SG.H3)XV 
AL(HH$)THENHH$-HG$(SG,H3> sHH-HIUSG, 

*3) 

7100 NEXT:CT-HH:RETURN 
12000 HS-INT(VAL(CT$(0)>/10) 

12020 IFHQC HS >-OTHENCT-HK (HS.O ) : RETURN 
120 30 HA— «1 :WM$-"«1":HN*-"-1"iHZ$-"»1":H 
BI--90" iHH— 1 

12033 IFWQ(WS) — 1THENSC-1 iGOTOISOOO 
12035 FORH3-0TOI1-1 

12038 IF¥S-INT(VAL(CT$(H3) ) / 1 0 ÌTHEN I FVAL 
(HM$XVAL(CT$(H3>)THENHM$.CT*<N3) 


1 2090 NEXT 

12093 F0RW3-0T0WQ(WS) 

12095 IFVAL(HN»XVAL(HG$(HS,H3))THENHN»- 
HG*(HS,H3) :WI-HK(WS,H3) 

12096 VG-VAL(HG$(HS,H3) ) 

12097 IFVAL(HZ$XVGTHENIFVG<VAL(HM*)THEN 
HZ*-HG*(HS.H3) :HJ-HK(HS.H3) 

12098 IFVAL(HG$(HS.H3) ) -HS» 1 0-7THENHA -HK 
(MS ( H3) 

12050 NEXT 

12055 I FVAL( HN$ X VAL ( NMS ) THENI FHA >- ! THEN 
CT-HA : RETURN 

12060 I FVAL(HN*X VAL ( HM$ ) THENCT-HI : RETUR 

12070 IFHA>"'1THENIFHS*10*7<VAL(HM$)THENC 
T-HA : RETURN 

12075 IFHZ$O"-1"THEN12100 
12077 IFI1-3THENIFRIGHT$(HN» . 1 X>"7"THEN 
CT-HI: RETURN 
12080 FORH3-OTOHQ(HS) 

12082 GV*-HG$(HS,H3) 

12085 IFVAL(NB*)>VAL(GV*)THENIFRIGHT*(CV I 
I . 1 X>"7"THENHB$-GV$:HH-HX(HS.H3) 1 
12090 NEXT :IFHH>-1THENCT-HH: RETURN 
12095 CT-HK(HS.O):RETURN 

12100 00-0iIFI1-3THENIFRI0HT$(HM8,1 X"9» 
THENIFRIGHT$(HN$,1 ) >"7"THEN00- 1 
12105 I F00-1 THEN IFSC-OTHENCT «HI: RETURN 
12110 CT-HJ:RETURN 
15000 GOSUB350O0 
15010 16-0 

15020 IFHQ(SC(I6) )--1 THENI 6-1 6*1 : GOT0 150 
20 

15030 F0RW3-0T0HQ(SC ( I 6 ) > 

15090 C7— 1 :F0RH8-VAL(RIGHT*(HG*(SC(I6) , 

H3) . 1 ) )T09 

15050 IFMZ$(SC(I6) ,H8 >-"0"THENC7-C7* 1 
15060 NEXTH8 
15100 REM 

15110 FORU9-OTOHQ(SC(I6) ) 

15120 IFRIGHT$(HG*(SC(I6) ,H9) . 1 )>RIGHT»( 

HG$ ( SC ( 16 ) . H3 ) • 1 JTHENC7-C7-1 
15125 NEXTH9 

15135 IFC7-0THENHH-HK(SC(I6) ,H3):G0T0151 I 
95 

15190 G0T01 5150 

15195 IFRI0HT*(HG*(SC(I6),H3).1 >-"7"THEN 
HA-HK(SC(I6) ,H3) 

15150 NEXTH3 

15160 I FHA >-1THENCT-HA: RETURN 
15170 IFHH>**1THENCT-HH: RETURN 
15180 IFI6<3THENI6-I6*1 :G0T015020 
15190 16-0 

15200 IFHQ(SC(I6) )--1THENI6-I6*1 : GOTO 1 52 I 
00 

15210 FORH3-OTOHQ(SC(I6) ) 

15220 IFVAL (HG$(SC( 16 ) ,H3) )> VAL ( HZ$ ) THEN 
HZ*-HG8(SC(16).H3):HH-HK(SC(I6),H3 

15230 IFRI0HT$(HG»(SC(I6) ,H3) .1 )-"7"THEN 
HA-HK(SC(I6) ,H3) 

15290 NEXT : GOT0 15160 
17000 FORH3-OTO3:PS(H3)-0:NEXT 
1 7005 F0RHS-0T03 : IFHQ ( HS ) — l THENI 7060 
17010 FORH3-OTOHQ(HS ì 

17020 IFVAL (RIGHT*(HG$(HS.H3).1 ) X9THENP 
S (HS )-PS (HS ) ♦ 1 : G0T01 7050 
17022 1FVAL(RIGHT$(HG$(HS.H3).1 ))-9THENP 
S(HS)-PS(HS)«3:OOTO17O50 
17025 IFVAL(RIGHT*(HG8(HS,H3) .1 ) J-5THENP 
S(HS)-PS(HS)«3.2:GOT017050 
17027 IFVAL(RIGHT»(HG8(HS.H3) .1 ))-6THENP 
S ( HS ) -PS (HS) «3.5:001017050 
17030 IFVAL(RIGHTS(HGt(HS,H3),1 ) ) -7THEN P 
S(HS)-PS(HSX12: G0T01 7050 
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17033 IFVAL(RIGHT*(WG*(WS,W3>.’ )>-8THENP 
S ( WS ) -PS (WS ) ♦ 1 5 : GOT0 1 7050 
17036 PS(¥S)-PS(WS)*20 
17050 NEXTW3:WW*-»40" 

17053 F0RW4-0T0WQ(WS):IFVAL(WG*(WS,W4) )< 
VAL(WW*)THENWW*-WG*(WS,W4 ) 

1705 A NEXTW4:IFVAL(RIGHT*(WW», 1 ) J-9THENP 
S( WS) -PS (WS) *50:00101 7060 
17055 IFVAL(RIGHT*(WW*.i ) ) >6THENPS ( WS )-P 
S(WS)*30:GOT017060 

1 7057 IFVAL(RIGHT*<WW». ’ ) ) >3THENPS ( WS ) -P 
S (WS )*7 

17060 NEXTWS : RETURN 
18000 F0RW3-0T03 : ¥Q ( W3 )-" ' : NEXT 
18050 FORW3-OTORC-1 : WS-I N7 ( VAL ( CM8 ( GC . W3 
) )/ 10 ) 

18100 WQ(WS)-WQ(WS)*1 :WG$(WS t WQ(WS) ) -CM * 
( GC ( W3 ) : WK ( WS , WQ ( WS ) ) -W 3 : NEXT 
18150 RETURN 

20000 CG8-CM*(GC,CT):CM8(GC,CT)-CM*(GC,N 
C«1 ) 

20020 IFGC-2THEN20100 
20030 IFGC-1THEN20200 

200A0 0NNC00SUB200 45, 20050 .20055, 20060, 2 
0065.20070,20075.20080,20085.20090 
20042 COSUB60000:PRINT" » : GOSUB 1 4 30 : RETU 

RN 

20045 H- 3 * V-7 : RETURN 
20050 H-4:V«8:RETURN 
20055 H-4 : V-6 : RETURN 
20060 H-3 : V-9 : RETURN 
20065 H-3 : V-5 : RETURN 
20070 H-4:V-10:RETURN 
20075 H-4:V-4:RETURN 
20080 H-3 : V- 1 1 : RETURN 
20085 H-3 : V-3 : RETURN 
20090 H-4:V-12:RETURN 

20100 0NNCG0SUB201 45,20150,20155.20160,2 
0165,20170.20175,20180,20185.20190 
201 42 G0SUB60000: PRINT" ": G0SUB1 430 : RETU 
RN 

20145 H-20:V-4:RETURN 
20150 H-19:V-3:RETURN 
20155 H-2 1 : V-3 : RETURN 
20160 H- 1 8 : V-4 : RETURN 
20165 H-22: V-4: RETURN 
20170 H-1 7 :V-3:RETURN 
20175 H-23:V-3: RETURN 
20180 H-16:V-4: RETURN 
20185 H-24:V— 4:RETURN 
20190 H-15:V-3:RETURN 

20200 0NNCGOSUB20245, 20250, 20255, 20260, 2 
0265.20270,20275.20280,20285.20290 
20242 G0SUB60000:PRINT" " : G0SUB1 4 30: RETU 
RN 

20245 H-35:V-7 : RETURN 
20250 H-36:V-8:RETURN 
20255 H-36:V-6:RETURN 
20260 H-35:V-9:RETURN 
20265 H-35:V-5:RETURN 
20270 H-36:V-10:RETURN 
20275 H-36:V-4:RETURN 
20280 H-35:V-1 1 :RETURN 
20285 H-35:V-3:RETURN 
20290 H-36:V-12: RETURN 
30000 NC-NC-»! 

30005 IFDM-1THENGETR*:IFR*-CHR*< 1 3310RR* 
-CHR* ( 1 34 )THENDM-0:G0T0i 1 43 
30010 PR-0:SM-INT(VAL(CT*(0 ) )/’0) 

30015 REM CONTROLLA DI CHI E‘ LA MANO 
30020 FOR1 1 - 1 T03 

30030 IFSM-INT(VAL(CT$(I1 ) ) / 1 0 ) THEN I FV AL 
(CT»(PR) )<VAL(CT$(I1 ) 1THENPR-I 1 
30040 NEXT:H-5:V-23:GOSUB6OOO0:PRINT"QUE 
STA PRESA E' DI "i 
30045 NP-0C*1*PR:IFNP>3THENNP-NP-4 


30050 PRINTLEFT» ( NM» (NP ) , 1 4 ) j 
30055 FORI!-0TO3:IFRIGHT*(CT8(I1),1 )-*7" 
THENPT(NP)-PT(NP)*3: GOTO 300 6 5 
30060 IFRICHT*(CT*(I1 ),1 )<"4»THEN30065 
30063 PTtNP )-PT(NP )*1 
30065 NEXT : GC-NP- 1 

30070 IFDM-1 THENGETR» : IFR8-CHR» ( 1 33 )ORR» 
-CHR* ( 1 34)THENDM-0: GOT0 114 3 
30110 FORII-OT02000:NEXTII 
30115 1FDM-1 THENGETR*: IFR*-CHR$( 1 33)ORR$ 
-CHR* ( 1 34 )THENDM-0:G0T01 143 
30120 H-8:V-7:GOSUB60000:N1 *-" (25 SPC)": 
PR1NTN1 8 j 

30150 V-V*l :G0SUB60000:PRINTN1*: :IFV-12G 
OT0301 60 
30155 OOTO3015O 

30160 V-23:H-3:GOSUB60000:PRINTNt: 

! 30163 IFDM-1THENGETR*:IFR*-CHR*(>33)0RR* 
-CHR»( 1 3« )THENDM-0:G0T01 143 
30170 SC-0:IFNC>0THEN1310 
30175 DF-0:FORl-OTO3:PU(I)-INT(PT(I)/3): 
IFIONPTHENDF-DF*PU(I) 

| 30177 NEXT:PU(NP)-1 1-DF 

30180 F0RI-0T03:TT(I)-TT(I)*PU(I) : NEXT 
30185 FORI-OTO3:PT(I)-0:NEXT 
30190 PRINT" (CLR I” : P0KE53280.7 :POKE5328l 
,7 : PRINT" (BLACK}" 

30195 PRINT" l 2 CUR.CIU ) { 1 2 CUR.DEStP U N 
T E G 0 I 0" 

30200 PRINT" ( 1 2 CUR.DESH17 CBM 0)" 

30205 H-0:V-8:GOSUB6OOOO 
30210 FORI-0TO3:PRINTSPC(4)iLEFT*(NM*(I ) 
,3) iSPC (3 ) : ! NEXT : PRINT : 

30220 FORI-OT03 : PRINTSPC ( 4 ) ; — " :SPC( 3 ) 

i : NEXT : PRINT 

I 30230 H-4 ; V- 1 1 : FORI-0TQ3:GOSUB60000 : PRIN 
TTT(I)t :H-H*10:NEXT 
30235 1-0 

30240 IFTT(I )>MXTHEN30260 

30241 IFI<3THENI-I*1 :GOTO3024O 

30242 H-20:V-22:GOSUB60000: PRINT" (PURPLE 
){RVS ON ì <F 1 > PER CONTINUARE ( RVS 0 
FF) (WHITE)" : 

I 30245 GETR*:IFR*OCHR*<133)THEN30245 
30250 GOTO 1 1 80 

30260 H-12:V-15:GOSUB60000:PRINT"IL VINC 
ITORE E'"; 

30265 VN-0 : FORI-1 T03: IFTT (IXTT(VN)THENV 

30267 NEXT 

30268 H-20:V-22: GOSUB60000 :PRINT"(BLUE) I 
RVS 0NKF1> PER CONTINUARE (RVS OFF 

)"ì 

30270 H-20-LEN(NM*(VN) ) /2 : V-l 8 : G0SUB6000 
0:PRINT" (PURPLE)"; 

30275 IFDM-1THENGETR*: IFR*-CHR*( 1 3 3 ) ORR * 
-CHR* ( 1 3* ) THEN DM-O: GOTO! 143 

I 30280 F0RI-1T0LEN(NM*(VN) ) : GOSUB60000 : PR 
INTLEFT*(NM*(VN),I); 

30285 NEXTI 

30286 IFDM-1THENOETR*:IFR*-CHR*(133)ORR» 
-CHR» ( 1 34)THENDM-0:00T01 143 

30287 GETR*: I FR*-CHR* ( 1 33 JTHENRUN 

30288 F0RJ-1T0900:NEXTJ 

30289 IFDM-1THENBV-BV*! : IFBV-5THENRUN 

30290 H-2:GOSUB60000:PRINTN»; :G0T030270 
35000 REM TORNANO I SEMI PIU' CORTI 
35005 F0RW3-0T03:SC(W3)-W3:NEXT 

35010 F0RW3-0T03:PC(W3)-WQ(W3> :NEXTW3 
35020 F0RW3-3T01STEP-1 :FORI3-1TOW3 
35030 IFPC(I3)>PC(I3-1 ÌTHEN35040 
35035 SR-PC(I3):PC(I3)-PC(I3**1 ) : PC < I 3- 1 ) 
-SR:SR-SC(I3) ■.SClI3)-SCt.l3+l ) 

35038 SC ( I 3 a ’ ) -SR 
35040 NEXTI3.W3:RETURN 
37000 REM 
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r^RO GRAMMA^ }' 


37002 REM ISTRUZIONI GIOCO 

37004 REM 

37005 P0KE53280,5:POKE53281 ,5 

37010 PRINT" (CLR) (YELLOW) (CUR. SU) ( 13 CUR 
.DESjISTRUZIONI:" 

37020 PRINT" { 1 3 CUR . DES } ( 1 0 CBM Y ) " 

37030 PRINT" (CUR. GIU )( CUR . DES ) COME DICE 
IL NOME DEL GIOCO, LO SCOPO" 

37040 PRINT" (CUR. DES } PRINCIPALE DEL GIOC 
0 E' DI NON PRENDE-*”; 

37050 PRINT" 1 2 CUR . DES } RE . " 

37051 PRINT"{CUR.DES}IL TRE E 1 LA CARTA 
PIU' ALTA, POI » 

37052 PRINT'' (CUR. DESJC'E' IL DUE QUINDI 
L'ASSO E COSI' VIA" 

37053 PRINT" (CUR. DESjFINO AL QUATTRO." 
37060 PRINT"{CUR. DESILE CARTE HANNO UN P 

UNTEGGIO CHE E' DI" 

37070 PRINT" (CUR. DESlUN PUNTO PER L'ASSO 
, DI UN TERZO DI" 

37080 PRINT"(CUR.DES)PUNTO PER TRE, DUE, 
RE. DONNE, FANTI." 

37090 PRINT" (CUR.DES)QUANDO SI GIOCA BIS 
OGNA RISPONDERE " 

37100 PRINT" (CUR. DESlAL SEME GIOCATO DAL 
PRIMO GIOCATORE" 

37110 PRINT"(CUR.DES)SE NON SI HA QUEL S 
EME ALLORA SI" 

37120 PRINT" (CUR.DES)PUO' SCARTARE QUALS 
IASI CARTA." 

37130 PRINT"(CUR.DES)CHI PRENDE L'ULTIMA 
MANO PRENDE AN-" 

37140 PRINT" (CUR. DESÌCHE I TERZI DI PUNT 
0 DEGLI ALTRI." 

37150 PRINT" (CUR. DES1IL GIOCO FINISCE QU 
ANDO UN GIOCATO-" 

37160 PRINT" (CUR. DESlRE PASSA IL PUNTEGG 
IO STABILITO." 

37170 PRINT"(CUR.DES)VINCE CHI HA MENO P 
UNTI !" 

38000 V-23:H-20: GOSU B60000 ;PRINT"(RVS ON 
}<F!> PER CONTINUARE (RVS OFF)"; 
38005 IFDM-0THEN38100 
38010 1-0 

38015 GETR$:IFR$-CHR$(1 33)0RR»-CHR$ (144) 
THENDM-0:G0T01 143 
38020 1-1*1 ; IFK100THEN38015 
38030 G0T01 170 

38100 CETRA :IFR*-CHR$(1 33 >THEN1 145 
38110 G0T0381 00 
50000 REM 

50005 REM ROUTINE PER CANCELLARE PROX CA 
RTA GIALLA 
50007 REM 

50010 IFR5-0THENG0SUB50040 : G0T0501 00 
50020 IFR5-1 G0T050200 
50030 IFR5-2GOT050300 
50035 GOT050400 
50040 REM 

50042 REM TRASFORMA LA CARTA IN SIMBOLI 
50045 REM 

50048 IFSM-OTHENKSA-" (LT .RED) (SH SlfWHIT 
E)" 

50050 IFSM-1THENKS8-" (BLACK) (SH X ) (NHITE 


50060 IFSM-2THENKSA-" (LT .RED) (SH Z) (HHIT 


50070 IFSM-3THENKS»-" (BLACK) (SH 


AHWHITE 


50075 IFVL<4THENK»-RIGHT$(STR*(V 
50080 IFVL-4THENK*-"J" 

50083 IFVL-5THENK*-"Q" 

50087 IFVL-6THENK$-"K" 

50090 IFVL-7THENK$«"A" 

50093 IFVL-8THENK*-"2" 

50096 IFVL-9THENK$-"3" 


50098 RETURN 

I 50100 H-4*3"I*INT(3"(10-NC)/2):V-16:GOSU 
B60000 

50110 PRINT" (CBM A)(2 SH C ) " ; : V-V* 1 : GOSU 
B60000: PRINT" (SH B)";K* 

50120 V-V*1 :GOSUB60000:PRINT" (SH B) ”KS* 
: IFKNC-1THENRETURN 

I 50130 H-H+3:V-16: GOSU B6 00 00 :PRINT"ISH C) 
(CBM S)":V-V+1 : GOSU B6 00 00 : PRINT " ( 
SH B)" 

50140 V-V»1 :G0SUB60O00:PRINT" (SH B)":RE 

50200 IFINT(I/2)-I/2THENH-35; GOT050220 
50210 H-36 

I 50220 V-I * 3 : G0SUB60000 : PRI NT " (YELLOW) (CB 
M *}(WHITE)":RETURN 
50300 IFINT(I/2)-I/2THENV-3;GOT050320 
50310 V-4 

50320 H-I ♦ 1 5 : GOSUB60000 :PRINT"(YELL0W) (C 
BM +) (WHITE)":RETURN 
50400 IFINT(I/2)-I/2THENH-3;COTO5042O 
50410 H-4 

! 50420 V-I*3:C0SUB60000:PRINT" (YELLOW) (CB 

M * ) (WHITE)" :RETURN 

59999 END 

60000 REM 

60003 REM POSIZIONAMENTO CURSORE 
60006 REM 

60010 PRINT" (HOME }";LEFT$("{24 CUR. GIU!" 
,V);TAB(H);:RETURN 

\ 61000 H-20-(INT(LEN(NM$(2) )/2) ) :V-1 : GOSU 

B60000;PR1NTNM$(2) 

61100 V-8— (INT(LEN(NM$(3))/2)):H-1 :GOSUB 
60000 

: 61200 F0RI1-1T0LEN(NM$(3)):PRINTMID$(NM$ 

(3), Il ,1 ) : V-V* 1 :GOSUB60000:NEXT 

I 61300 H-20— (INT(LEN(NM$(0))/2) ) : V-20 : GOS 
UB60000:PRINTNM»(0) 

! 61400 V-8-( INTfLEN (NM$ ( 1 ) ) / 2 ) ) :H-38: GOSU 

B60000 

61500 F0RI1-1T0LEN(NM$( 1 ) ) :PRINTMID$(NM$ 
( 1 ) .11 .1 ) ; :V-V*1 :G0SUB60000:NEXTI1 
61600 RETURN 
63000 REM 

I 63002 REM ORDINAMENTO CARTE E VISUALIZZA 
ZIONE 
63004 REM 

63008 IFNCC-1THEN63500 
63010 F0RI-NC-2T00STEP-1 

I 63020 FORJ-OTOI 

63030 IFVAL(CM$(0,J))<VAL(CM$(0,J*1 > )THE 
NNEXTJ,I:GOT063500 

. 63040 SR*-CM»(0,J):CM$(0,J)-CM$(0,J*1 ) 
63050 CMt(0,J*1 )-SR$:NEXTJ,I 

i 63500 V-16:H-4:G0SUB60000;N$-”(35 SPC)" 
63510 PRINTN A : V-V* 1 :G0SUB60000 
63520 PRINTNA:V-V*1 : GOSU B6 00 00 : PR INTN A 
63530 IFI-OTHENRETURN 
63535 IFNC-OTHENRETURN 
63540 FORI-OTONCH 

63560 SM-INT(VAL(CMA(O.I ) )/ 1 0 ) : VL-VAL (CM 
A ( 0 , 1 ) )«SM* 1 0 : GOSUB50040 
63570 GOSUB50100:NEXT:RETURN 
63580 REM 

63585 REM NOMI GIOCATORI AVVERSARI 
63588 REM 

63600 DATA" PIPPO BAUDO", "CIPOLLINO" , "E T 
" ."BOBBY SOLO", "ENZO BEARZOT" 

I 63610 DATA" JERRY LEWI S" FALCAO" , "SANDRO 
PERTINI". "TOPOLINO" 

63620 DATA"DIEGUITO" ,"ZORRO" , "GIANNI MIN 
A' "," DI ABOLIR” ."ARSENIO LUPIN" 

63630 DATA "LO YETI ", "RONALD REAGAN " , " YOG 
HI ", "BRACCOBALDO" , "C ICC IOLI N A " 

63640 DATA " NIKI LAUDA", "TONI NEGRI", "RAM 
BO" 
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FAST DATA 


Di: B. Kododek 

Trad. e adati. Stefano Albarelli 


Q uesta utile e pratica routi- 
ne offre una veloce alter- 
nativa alle lente istruzioni READ e 
POKE per leggere delle informa- 
zioni do linee DATA e trasferirle in 
determinati blocchi di memoria. 
Utilizzando Fast Data si riducono 
drasticamente i tempi di attesa 
dell'inizializzazione di un pro- 
gramma. 

Usatelo per i vostri nuovi pro- 
grammi, resterete abbagliati dal- 
la differenza. 

Avete mai atteso che un pro- 
gramma Basic leggesse e cori- 
casse in memoria i dati? Finora 
questo era l'unico metodo per 
trasferite dalle DATA alla memo- 
ria dati di Sprite, caratteri pro- 
grommati, tavole musicali. 

Infatti succede molto spesso che 
facendo partire un programma 
basic compare sullo schermo un 
laconico “ATTENDERE, PREGO’, 
che vi rimane anche per minuti in- 
teri mentre il computer esegue 
centinaia (se non migliaio) di 
READ e di POKE. Fast data può 
eseguire tutte queste operazioni 
in un batter d'occhio, alla velocità 
del linguaggio macchina. 

Inoltre esso diventa parte del pro- 
gramma, ed è possibile metterlo 
in azione con un semplice GO- 
SUB. 

Per esempio 2000 Bytes di dati 
possono essere letti e trasferiti in 
memoria in appena 6 decimi di 
secondo (alla velocità di circa 
3000 bytes per secondo). Il BA- 
SIC, per compiere lo stesso lavo- 
ro impiega ben 27 secondi. 

La caratteristica più importante 
della routine è che non è necessa- 
rio conoscere il linguaggio mac- 
china per usarla, basta dorè una 
sys con il programma da velociz- 
zare in memoria, e la piccola su- 
broutine viene aggiunta al pro- 
gramma. 



COME SI USA 

Quando fate partire il program- 
ma, esso installa una routine in 
linguaggio macchina in memorio. 
Dopo di ciò si può caricare in me- 
moria il programma BASIC al 
quale si vuole aggiungere Fast 
Data. 

Quando il caricamento è termina- 
to, è sufficiente digitore in modo 
diretto "SYS 49152' e premere 
RETURN 

Quando lo parola LIGHTNING 
appare sullo schermo, una routi- 
ne speciale è stata aggiunta al 
programma 

Se listate il programma noterete 
che esso contiene quattro nuove 
linee numerate da 63996 a 63999 
(questo perché sono i numeri di 
linea utilizzabili più alti). Ora cer- 
cate l'ultima istruzione DATA con- 
tenuta nel programma ed aggiun- 
gete al termine dei dati uno virgo- 
la seguita do - 1 . 

Per esempio diciamo che l'ultima 
linea data del vostro programma 
appaia cosi: 

5000 DATA224, 169, 255, 96 

Dovete cambiarla in 

5000 DATA224, 169, 255, 96, -1 

Il valore - 1 marca la fine dei dati 
(siccome - 1 è utilizzato come un 
marchio di fine dati non potete 
utilizzare la routine con program- 
mi che contengono dei -1 da 
qualche parte tra i doti, anche se 
questo non accade quasi mai 


perché non è possibile pokare un 
- 1 nella memoria) 

Per chiamare la routine aggiun- 
gete una linea che setti la variabi- 
le D uguale alla prima locazione 
del blocco di memoria dove de- 
vono essere memorizzati i dati e 
che, successivamente, esegua un 
qosub63997. 

Per esempio per memorizzare un 
gruppo di dati contenuti nelle DA- 
TA nella memoria schermo che 
inizia a 1024, la linea dovrà ap- 
parire cosi: 

100 D =1024: GOSUB 63997 

Se volete modificare un program- 
ma già esistente siate sicuri di ri- 
muovere le vecchie istruzioni 
READ e POKE. 

Questa routine usa le variabili D, 
D% e A, perciò non potete usarla 
in programmi che utilizzino queste 
varibili. 

Quando avete terminato le modi- 
fiche potete salvare la nostra ver- 
sione del vostro programma. 
Ricordate bene di non tentare di 
modificare le linee della subrouti- 
ne creata da Fast Data (linee 
36996-36999) perché il Basic Edi- 
tor accorcerebbe le linee e rovi- 
nerebbe il linguaggio macchino, 
compremettendone il funziona- 
mento. 
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L’OROLOGIO 
INTERNO DEL 
COMMODORE 
E LE ROUTINE 
DELLO SCROLL 


di S. Albarelli 

M olto spesso nei giochi 
d'azione e di velocità si 
sente la necessità di porre un ti- 
mer e un limite di tempo prima del 
quale il giocatore deve dare il 
meglio di se, ma molti degli utenti 
dei Commodore non hanno ben 
chiaro il metodo da seguire per 
attuare questa miglioria ai propri 
giochi. 

Questo articolo si propone di far 
luce suH'argomento spiegando le 
regole di base da seguire per 
sfruttare l'orologio interno di cui 
sono dotati i computer della 
Commodore. 

Provate a digitare in modo diretto 
PRINT Tl$ 

e premere RETURN 
Il computer stamperà sullo scher- 
mo un numero a sei cifre. 

Questo numero è il contenuto di 
Tl$, una stringa di sistema che il 
computer aggiorna continuamen- 
te, e che mostra il valore dell'oro- 
logio interno del vostro computer, 
il suo formato è: 

HHMMSS 

dove 

HH sono le due cifre indicanti le 
ore 

MM sono le due cifre indicanti i 
minuti e 

SS sono le due cifre indicanti i se- 
condi. 

Quando accendete il computer 
Tl$ vale 000000, ma è possibile 
variarne il valore in qualunque 
momento mediante un 

Tl$ = 'HHMMSS' 



dove HHMMSS sono le ore, i mi- 
nuti e i secondi desiderati. 

Se od esempio si vuole posiziona- 
re l'orologio sulle 12:35 e 10 se- 
condi, basta digitare. 

TU = '123510' 

Ora digitate e fate girare il se- 
guente programmino: 

10 Tl$ = “000000" 

20 PRINT "ihome]'TI$ 

10000 GOTO20 

La linea 10 posiziona l'orologio 
sulle 00:00 e 00 secondi; la linea 
20 stampo un 'home' per far tor- 
nare il cursore nell'angolo in alto 
a sinistra e subito dopo stampa il 
valore di Tl$; infine la linea 10000 
fa eseguire nuovamente lo linea 
20 . 

Questo breve programmino per- 
mette di creare un'orologio che 
viene continuamente aggiornato 
anche sullo schermo. 

Tra la linea 20 e la linea 10000 è 
possibile inserire un programma 
che svolga altri compiti, purché la 
linea 10Ó00 venga eseguita alme- 
no 2 volte al secondo, altrimenti il 
valore presente sullo schermo 
non verrebbe aggiornato abba- 
stanza spesso per dare letture at- 
tendibili. 

Oro se volessimo utilizzare l'oro- 
logio onche come timer, e non so- 
lo come orologio, potremmo ag- 
giungere al nostro programmino 
una linea che controlli costante- 
mente che l'orologio non superi 
un certo valore in secondo o in 
minuti. Se volessimo dare un tem- 
po di 10 secondi prima che il pro- 
gramma salti ad una determinata 
subroutine, la linea potrebbe es- 
sere: 

30 IF TU > '000010' THEN 
(linea della subroutine) 
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Questo subroutine potrebbe es- 
sere una linea che stampi un mes- 
saggio del tipo "TEMPO SCADU- 
TO" e che dia la possibilità di ri- 
partire. 

Se nei vostri programmi vi serve 
una precisione maggior del se- 
condo, potete utilizzare un'altra 
variabile che il computer utilizza 
come orologio: TI. TI contiene il 
valore del tempo in sessantesimi 
di secondo. 

Se desideriamo che il programma 
visualizzi ugualmente in secondi, 
ma con delle cifre decimali che 
diano una precisione maggiore 
possiamo utilizzare un 

PRINT TI/60 

che visualizzerà un numero in 
questo formato: 

SS.DCMXXXX 

dove 

SS sono i secondi 
D sono i decimi di secondo 
C sono i centesimi di secondo 
M sono i millessimi di secondo 
XXXX sono i valori dal Decimillesi- 
mo di secondo al decimilionesimo 
di secondo. Logicamente le ultime 
cinque cifre sono poco utili, poi- 
ché il computer non può calcolar- 
le con estrema precisione data la 
sua velocità di calcolo molto su- 
periore al millesimo di secondo. 
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F orse per pazzia o 
più semplicemen- 
te per dimenticare una 
delusione amorosa vi 
offrite volontari per 
uno missione suicida: 
liberare i compatrioti 
tenuti prigionieri dall'esercito del- 
lo Morte. Soltanto il coraggio ed il 
disprezzo per la paura possono 
aiutarvi in questa sfida che richie- 
de anche intelligenza ed abilità. 

I soldati dell’esercito nemico sono 
organizzati in guarnigioni armote 
con bombe a mono e mortai e 
lentamente giustiziano i gloriosi 
partigiani dell'esercito di libera- 
zione. Il vostro intervento deve es- 
sere tempestivo ed immediato. 
L'ordine superiore è uccidere il 
maggior numero di nemici: alcuni 
vi affrontano in campo aperto, 
molti si nascondono in trincee, 
torrette e bunker. La vita di tanti 
valorosi soldati è nelle vostre 
mani. 


LA MISSIONE 

Armato con un fucile automatico 
e 5 granate iniziate il vostro viag- 
gio nei pressi dei ruderi di una ca- 
sa. Subito capite perché nessuno 
aveva accettato quella missione 
prima di voi: il terreno non offre 
alcun riparo ed i nemici vi attac- 



cano e sparano da ogni posizio- 
ne. La missione non vi permette di 
cercare ripari oppure tentare una 
ritirata poco dignitosa. Ormai vi 
trovate in pieno territorio nemico 
e l'unico possibilità per salvarsi è 
avanzare il più velocemente pos- 
sibile aprendovi lo strada sparan- 
do all'impazzata con il fucile mi- 
tragliatore oppure lanciando le 
granate contro i soldati nemici. 
Utilizzate le granate con precisio- 
ne tentando di colpire i soldati ri- 
parati nelle trincee, torrette, bun- 
ter o dietro socchi di sabbia, op- 
pure i mezzi da combattimento 
come i carri armati. 
Fortunatamente dalla base non vi 
hanno abbandonato ed ogni ton- 
to vengono lanciate sul terreno 
con il paracadute cosse conte- 
nenti oltre granate. Il vostro com- 
pito è quello di eliminare il mag- 
gior numero di nemici evitando di 
venire colpiti. 

Il territorio da liberare è molto va- 
rio ed è diviso in 8 zone, ognuna 
controllata da una caserma. Libe- 
rare definitivamente una zona 


dall'oppressione del- 
l’Esercito dello Morte è 
l'operazione più impe- 
gnativa perché ogni 
avamposto nemico è 
presidiato da un'ag- 
guerrita guarnigione 
capitanata da un gradualo con la 
divisa rossa. 

Una volta occupata la caserma si 
passa alla zona successiva. Ma- 
no a mano che avanzate il terreno 
diventa sempre piu impegnativo 
con numerosi e diversi ostacoli 
come sabbie mobili, aeroplani, 
ferrovie, barche ect ect. 


I COMANDI 

Potete utilizzare sia il joystick che 
la tastiera. 

Nel primo caso dovete collegare 
il joystick nella porta due. Muove- 
te il soldato nelle varie direzioni 
con la leva e per sparare premete 
il pulsante di fuoco. Per lanciare 
una granata premete il pulsante e 
spostate la leva in avanti. 

Con la tastiera utilizzate i tasti cur- 
sore e la barra spaziatrice per 
sparare. 


PUNTEGGI 

Durante la missione potete otte- 
nere punti in questo modo: 
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Da 70 punti in su per ogni nemico 
colpito. 

100 punti per ogni cassa di gra- 
nate raccolta. 

200 punti per ogni soldato colpito 
con una granata mentre salva da 
una caso 

800 punti per ogni prigioniero sal- 
vato 

1250 per il capitano in diviso 
rossa. 

Inoltre potete guadagnare uno vi- 
li 10000, 30000, 50000 ol 
ogni 20000 punti successivi 


ISTRUZIONE 

PER IL CARICAMENTO 

Dopo aver introdotto lo cassetto 
nel registratore con il nastro riav- 
volto all'inizio digitate: 

LOAD "CAS:", fi e quindi date il 
tasto RETURN 

Premete il tasto play sul registra- 
tore ed attendete il caricamento 
che avverrà in breve tempo. 



Editoriale Jackson, 
proprietario esclusivo 
dei diritti per 
l'Italia di questo gioco, invita i lettori 
che ne fossero a conoscenza, a 
segnalare l'esistenza di eventuali altre 
pubblicazioni contenenti questo stesso 
gioco, alla redazione dello nostra 


le prime tre segnolazioni saranno 
convenientemente compensate. 
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d PRO G^MMA/H 

w 00 ” 000 ■ LJ 

DISK MSX BOOT 


di A/l. Galluzzo 

Occupazione di memoria: 2690 Byte. 
Configurazione richiesta: 32 KByte + Disk Drive 


ito programma è un'occasione per imparare a 
e delle funzioni personalizzate. 


D escrizione: L'uso dei tasti funzione è una del- 
le facilità inserite nell'MSX BASIC per poter 
avere delle istruzioni complete con la pressione di 
un solo tasto. 

Questo p 

creare delle funzioni personalizzate. 

Vediamo qualche nota di teoria: 
l'istruzione di assegnamento delle funzioni è la se- 
guente: 

KEY n, A$ 

n: sarà compreso tra 1 e 10 
A$ - istruzione: esempio 
' PRINT ’ 

’PRINT“ + CHR$ 113) 

CHRS (21) + "PRINT" + CHRS (13) 

Il comando CHR$ (13) corrisponde a un "return" e 
perciò la istruzione sarà eseguita subito dopo. 
L'istruzione CHRS (21) provvede o ripulire la linea 
prima di inserire l'istruzione. Questo per evitare di 
scrivere sopra ad altri caratteri e ottenere cosi il 
fatidico Syntax error. 

Il numero massimo di caratteri di A$ è 15. 

Nel nostro caso abbiamo inserito 10 funzioni, ve- 
diamole: 


FI 

OROLOGIO 

F2 

AUTO 

F3 

GOTO 

F4 

LIST 

F5 

RUN 

F6 

COLOR 15,1,5 

F7 

OCCUPAZIONE DI MEMORIA DEL 
PROGRAMMA INSERITO 

F8 

FILES 

F9 

LOAD' 

FIO 

CANCELLAZIONE BOOT 


Caricate il programma do cassetto in memoria del 
computer quindi salvatelo su disco con SAVE 
'BOOT' quindi mandatelo in esecuzione con RUN 
60000 



ALIZZAZIOVfi D1S 


3 LOCATE 5.12 

3 PRINT "Regolazione orologio : 

3 PRl»T SPC < 8 1 > 

3 INPUT "Ore <0/23) ";OX 

3 IF 0%>23 OR 0%<0 THE» BEEP: GOTO 00 

3 PRINT SPC <5>s 
3 INPUT "Minuti <0/50) " . M% 

3 IF N%>59 OR M%< 0 THEN BEEP: GOTO 00 

3 PRIMT SPC <5 ) ; 

3 INPUT "Secondi 0/59) " ; S% 

3 IF S%>59 OR 0 THEN BEEP: GOTO 60 


60330 PRINT "Premi un taeto per elncr 

60340 IF INKBYS»"" THEN 60340 
60350 GOSUB 60740 
60360 REM 

60370 REM ***».«****•*•*♦***.* 

60380 REM * 

60390 REM » DEFINIZIONE TAST 
60400 REM * 

60410 REM ******************** 

60420 REM 
60430 KEY 1." GOTO 60900" ♦CHRS < 13 > 
60440 KEY 2 ." AUTO " 

60450 KEY 3.” GOTO ” 

60460 KEY 4 . CHR* <21 > ♦"LIST " 

60470 KEY 5. CHRS <21 >♦" RUN " 

60480 KEY 6. "COLOR 15 , 1 . 1" ♦CHRS < 13 > 
60490 KEY 7."? 24456- FRB <0)" ♦CHRS < 13) 


m 




©0500 KBY 6, CHRS <21 > ♦“ F ! LES” ♦CHRS < 1 3 > 
©0510 KEY 9. CHRS <21 > ♦ ” LOAD “♦CHRS <34 > 
©0520 KEY 10.” GOTO ©1 100”4CHR» < 13) 

©0530 CLS 
©0540 LOCATE 8,2 

©0550 PRIHT "ELENCO TASTI FUNZIONI” 

©05©0 PRIHT: PRINT 

©0570 PRIHT SPC<5>;”1. OROLOGIO** 

©0580 PRIHT SPC <5 ) ; ”2 . AUTO” 

©0590 PRIHT SPC <5 ) ; ”3 . GOTO” 

©0800 PRIHT SPC <5 > ; " 3 . LIST” 

©0©10 PRIHT SPC <5 ) ; ”5 . RUH" 

©0©20 PRIHT SPC (5 ) : "©. COLORE SCHERMO” 
60630 PRIHT SPC (5); ”7. LUNGHEZZA PROGRAM 

©0840 PRIHT SPC (5 > ; ”8 . FILES SU DISCO” 
©0850 PRIHT SPCC5);”9. LOAD DA DISCO” 
©0880 PRIHT SPC <4 > ; ” 1 0 . CANCELLA TUTTO” 
©0870 LOCATE 4.20 

©0880 PRIHT ” Presi un tasto per continua 

60890 IF IHKEY*=”" THEH 60890 
I ©0700 CLS 

I ©0710 KBY OH 

I ©0720 END 

©0730 REM 

60750 REM * * 

©0780 REM * S I NCRON I ZZ AZ I OHE * 

i ©0770 REM * # 

I ©0780 REM 

©0790 REM 

I ©0800 T I M£=0 

I ©0810 VT-0%*180000! 4MX»30004S%t50 

I 60820 RETURN 



GUIDA ALL'INPUT MSX 


Per motivi di stampa e chiarezza, i caratteri grafi- 
ci o comunque tutti i simboli il cui codice 
|ASC('car"|) è superiore a 127, compoiono nei 
listati codificati in modo particolare. 

Ogni carattere o serie di caratteri uguali e conti- 
gui, è sostituito da graffe contenenti: 

• Il numero dei caratteri (omesso se= 1) 

• La lettera maiuscola *C* oppure "A" a se- 
conda se si tratta del set normale (caratteri otte- 
nibili con CHR$(n) o del set alternativo (caratteri 
ottenuti con CHR$(1 )+CHR$(n)) 

• Codice "n* del carattere o dei caratteri da 
battere 

Qualsiosi computer MSX voi abbiate, potete rife- 
rirvi ol manuale per trovare la corrispondenza tra 


il codice-carattere doto e il simbolo o cui corri- 
sponde. 

ESEMPIO: 

{ 3C 1 90 } = battere 3 volte il carattere PI-GRECO 
{A67} = battere il carattere cuore. 

NORME PER IL CARICAMENTO DEI 
PROGRAMMI SU CASSETTA 

Le istruzioni di caricamento del supergome ven- 
gono riportate nel contesto della relativa descri- 
zione. Oltre al supergame sono registrati su na- 
stro tutti gli altri programmi presentati su questo 
numero i quali vanno coricati, salvo diversa indi- 
cazione, con: CLOAD <RETURN>. 






EASY BASE 

Per sistemi MSX con almeno 48KRAM + stampante 40/80 colonne opzionale 
OCCUPAZIONE 12205 byte RAM 

Un potente e veloce doto base con possibilità di comandi per ricerche mirate e multiple 


I l programma descritto consente la creazione di 
un archivio di doti, nel caso specifico un indirizza- 
rio, con il quale è possibile memorizzare un elenco 
di persone l Record sj completo dei relativi indirizzi, 
numeri telefonici, titoli professionali, ed eventuali 
brevi appunti come ad esempio data, ora e indiriz- 
zo di un appuntamento. Le principali caratteristiche 
di questo programma si possono riassumere nei 
seguenti punti: 

Un sistema di comandi conciso e potente ma allo 
stesso tempo di facile comprensione e utilizzo. 

La possibilità di un efficace trattamento dei dati e di 
eseguire operazioni mirate su questi, argomento di 
cui si parlerà tra poco. 

DESCRIZIONE DEI COMANDI E LORO USO 

Esistono 1 1 comandi che vengono elencati qui di 
seguito: 

I AGGIUNGI: 

inserisce un nuovo record nell'elenco sempre che 
non sia raggiunto il massimo numero memorizzabi- 
le (nella versione propria 120) in tal coso l'utente 
viene avvisato e l'ordine annullato. 

Il comando crea sul video una opportuna scheda 
munita di didascalie per l'input dei dati, viene inoltre 
visualizzato il numero d'ordine con cui viene regi- 
strato il record creoto nell'operazione. 

2 MOSTRA: 

il comando visualizza, uno alla volta, tutti i records 
memorizzati specificandone il numero d'ordine e 
indicando quanti ne restano ancora do vedere. 

3 SALVA; 

il comando consente di salvare su cassetta tutti i 
dati memorizzati nell'elenco. 

4 CARICA : 

il comando consente di caricare da cassetta una 
serie di doti precedentemente salvati. 

5 COMANDI: 

il coomando visualizza degli ultili esempi sull'uso 
dei comandi. 

6 QUANTI 

Fornisce il numero totale di records memorizzati. 


7 FINE : 

Consente di uscire dal programmo dopo ulteriore 
conferma. 

I quattro comondi che seguono richiedono di speci- 
ficare su quale (o su quali) campi ovvero parametri 
essi devono operare. 

I campi in questione sono dieci: il Titolo professio- 
nale, il Nome, il Cognome, la Via, la Provincia, il 
C.A.P., la Città, il Numero Telefonico, e infine le 
Note eventuali. 

Per una migliore comprensione dell'uso di questi 
comandi essi verranno corredati da alcuni esempi. 

8 RICERCA: 

Una istruzione quale: 

-* RICERCA COGNOME>ROSSI 
seleziona tra tutti i records memorizzati quelli il cui 
contenuto del campo Cognome> è “Rossi" quindi 
ne comunico il numero poi visualizza tali records 
uno olla volta. Un istruzione più complesso può es- 
sere: 

- RICERCA COGNOME>ROSSI VIA>DELLE RO- 
SE CITTA>MILANO 

Tale istruzione è più selettiva (mirato) della prece- 
dente poiché tra tutti i 'Ross/ memorizzati selezio- 
no solo quelli abitanti in "Via delle rose* a "Mila- 
no" (se ne esistono nell'elenco). 

9 MODIFICA: 

Una istruzione del tipo: 

- RICERCA NOME>MARIO COGNOME >ROSSI 
esegue dapprima una ricerca mirata con gli stessi 
criteri usati dal comando precedente, quindi i recor- 
ds vengono visualizzati uno ad uno: ad ogni visua- 
lizzazione il cursore si posiziona sulla scritta relativa 
al contenuto del primo campo ( Titolo ) che puà es- 
sere confermato o modificato riscrivendoci sopra. 
Dopo la modifico si preme <Return> e il cursore si 
posiziona sulla scritta relativa al campo successivo 
che va trattato come sopra. 

La procedura viene ripetuta su tutti i campi del re- 
cord e per tutti i records selezionati. 

10 ELIMINA 

Si adopero come i precedenti comondi, od esem- 
pio: 


PROGRAMMA 


ELIMINA NOME>GIUSEPPE CITTA>ROMA 
cancello lutti i records relativi ai "Giuseppe' abi- 
tanti o 'Roma' contenuti nell'elenco. 


RICERCA COGNOME>CON 

il programmo fornirà tutti i file che contengono nel 

cognome CON |es. CONTE, VISCONTE, etc.) 


1 1 STAMPA: ISU CARTAI 
Prevede due opzioni: 

I Ì/A STAMPA TUTTO (oppure Tutti, Tutte, Tutt) che 
stampa tutto l'elenco memorizzato) 

1 1/B È un altro comando mirato, ad esempio: 

— STAMPA TITOLO>RAG CITTA>TORINO 
tale istruzione stampa i nomativi di tutti i "Ragionie- 
ri' di 'Torino' memorizzati nell'elenco. 

Controllare che la stampante sia accesso 

DESCRIZIONE DEL PROGRAMMA 

Basilari sono in questo programma le routine di 
identificazione che data una istruzione anche com- 
plessa, permettono di identificare i comandi, i cam- 
pi e il contenuto dei campi stessi. 

Viene usata attivamente l'istruzione Basic IN- 
STR$(o$,bÀ) che data una generica stringa al ri- 
cerca in essa la stringa b$ e ritorna lo posizione di 
inizio. Vengono quindi identificati per primi i coman- 
di quindi i campi di apartenenza e i contenuti. Si 
esegue quindi la ricerca olTinterno della matrice dei 
file del contenuto e se esiste viene selezionato. Un 
oppossito contatore tiene confo dei campi che che 
contengono dei nomi accettabili. 

Nella fase di input dati è stato usola un routine che 
accetta la stringo per mezzo dell'istruzione INKEY$ 
e ne memorizza sia i singoli caratteri che la lunghez- 
za. Viene tenuto conto dell'uso del tasto BS (per la 
cancellazione dell'ultimo carattere introdotto) e im- 
pedisce di scrivere più caratteri di quelli previsti per 
il campo. Questa particolare routine con i suoi van- 
taggi, ha però il diffetto di dover ricorrere alla scrit- 
tura completa dei campi in fase di correzione/modi- 
ficazione. Usando un INPUT completa dei campi in 
lese di correzione/modificazione. Usando un INPUT 
consueto si supera anche questo fotto. Questa rou- 
tine può essere introdotta anche nei vostri program- 
mi. E sufficiente usare correttamente le variabili in- 
serite in essa. 

OSSERVAZIONI 

Terminato l'elenco dei comandi ecco alcune impor- 
tanti osservazioni e alcuni consigli per un miglior 
utilizzo del programma: 

A. I campi vanno digitati esattamente come ripor- 
tato nella tabella senza tralasciare il simbolo '>' 
e con uno spazio di separazione dal nome 

B. Degli undici comandi ne sono stati scelti 10 da 
assegnare ai tosti funzione e solo il comando 
FINE, che termina il programma e perde i dati, 
deve essere digitoto interamente 

C. Il programma consente la ricerca di un nome (o 
di qualsiasi altro campo anche combinato) in 
cui esista una sola parte di testo. Es. se inseria- 
mo il comando: 


PER CONCLUDERE 

Questo programma applicativo è destinato ad un 
uso principalmente domestico ma può essere utiliz- 
zato anche da piccole imprese o da negozi crean- 
do ad esempio degli elenchi, anche separati, di 
FORNITORI, CLIENTI, etc. Ovviamente l'uso della 
cassetta per la memorizzazione dei dati può com- 
portare dei tempi di accesso relativamente lunghi. 
Per questo motivo è stato introdotto il secondo lista- 
to nel quale vengono indicate le linee da modificare 
per utilizzare le unità a dischi da 3'/b pollici. 

In questo modo è possibile creare e consultare an- 
che più elenchi separati intoducendo all'inizio del 
programma un input che chiede il nome della direc- 
tory a cui eccedere. 

Come si vede questa modifica amplia enormemen- 
te le possibilità di utilizzo del programma ed evita i 
fastidi del posizionamento della cassetta 
Con poche modifiche si possono inoltre creare de- 
gli archivi per la memorizzozione di dischi, libri etc. 
La routine di stampa può venire facilmente modifi- 
cata per renderla utilizzabile con i fogli adesivi con- 
tinui indispensabili per essere incollati immedia- 
mente nelle buste delle lettere. 


ELENCO COMANDI E TASTI FUNZIONE 
ASSOCIATI 

MODIFICA 

AGGIUNGI 

ELIMINA 

RICERCA 

MOSTRA 

STAMPA 

SALVA 

CARICA 

QUANTI 

COMANDI 

FINE 


ELENCO DEI CAMPI 

TITOLO 

NOME> 

COGNOME> 

VIA> 

NUMERO> 

CITTA> 

PROV> 

CAP> 

TEL> 

NOTE> 


ELENCO DELLE VARIABILI 

ao 

lunghezza delle stringhe 

aS 

stringa contenente istruzione da eseguire 

o$tl 

motrice campo, record 




cc contatore numero campi 


ddS 

stringa di lavoro 

f% 

voriabile di ciclo 

h$ 

variabile di lavoro 

i$ 

premi un tasto 

i% 

variabile di ciclo 

j codice oscii 

/% 

voriabile di ciclo 

k 

numero operazioni di confronto 

lm() 

motrice operazioni di confronto 

m$l 1 

contenuto del campo 

n 

numero ordine 

nm numero records 

nt numero massimo record 

o$lì 

contenuto del campo 

po 

posizione inizio campo 

p(l 

matrice posizione inizio campo 

qSl) 

motrice comandi 

r% 

variabile di ciclo 

s 

numero records selezionati 

tr 

contatore 

ttll 

numero d'ordine del campo 

ull 

motrice lunghezze massime dei campi 

x% 

posizione orizzontale campi 

y% 

come per x% ma verticale 

yS 

premi un tasto 

wq% 

contotore fase di input 

2 % 

variabile di ciclo 



120 OLEARI 3800:NT-120:KEYOFF 

130 DXMPX(11).M$(10),LM(10),R(N7),A$(N7,Y0 

) ,QI(Ì 1 ) .XI10) ,Y(10),U(10> 

1 «0 RESTORE:FORI1-1T06:READTR (Iti :NEXT 
150 FORI I-1T010:READXl II) ,Y( U i . U t II) : NEXT 
s FOR I *- 1 T0 1 ! : RE A DUI (II): NEXT 
160 rORII-lT010:KEYII.Q$(U>:READMI( IIl.LM 
< I * ) : NEXT 

170 COLOR t ,9:WIDTH»0:CLS:MI<?)-" NOME>":L 
M (2 )«LM (2 ) ♦ 1 

180 LOCATE 10, 5t FRI NT" (ASSI | 16A87I (A891":LO 
CATE10,6iPRINT"lA86l IA86I" 

: LOCATE 1 0 ,7 : PRINT" ( A 8 6 I EASY BASE U8 
61" : LOCATE 10 ,8: PR1NT" (A 86) 

IA861":LOC ATEI 0.9: PRINT" (A901 I 16A87 I I A91 I" 
190 L0CATE!0,18:PR1NT" PREMI UN TASTO 
200 IFINKEY»-""THEN200ELSEKEYON:CLS 
210 POKEAHFCAB,255:OUT6HAB. 12: PRINT: PRINT" 
•*"> " : :LINEINPUTA$:IFA»-"’THEN210 
220 FOR II-1T011:tFINSTR(A$.D$<Il)><>0THEN 
0NIIG0T0250. 101 0.380. *90.600. 650. 790.850.1 
290.910,970 

230 NEXT : PRINT : PRI NT" — . COMANDO SCONOSCIU 
TO : G0T02 1 0 

2*0 ' 

250 • MODIFICA 


270 CC-0:F0RII-lT010iP0-INSTRU*.M$( i I ) ) : I 
FP050THENCC-CC-1 :TT(CC)-I I: PXICC l-PO 
280 NEXT : IFCC-OTHENPRINT : PRINT" COMAN 

DO ERRATO ••••'" :00T02 10 

290 F0RII-1T0CC:IFCC-IITHENPX( li- 1 )-LEN(A! 

300 DX-PX(II)»LM(TT<II)):Ot(II)-MID*U$.DX 
.PXIII-1 )iDX):G0SUB1 1 60 : NEXT : FORI I-1T0N: Ri 
II)-II:NEXT:NN-N 

310 K-N:FORJI-1TOCC:S-0:PORIl-1TOK:tF INST 
R(A*(R<I1>.TT<JI)>,01(JI) )<>OTHENS-S-1:R(S 
l-R(II) 

320 NEXT: IFS-0THENK-0:G0T0330ELSEK-S:NEXT 
330 IFK-OTHENPRINT: PRINT" RECORD NON TRO 
VATO ! 1 " :G0T021 0 

3*0 F0RJI-1TOK:N-R(JI):G0SUB1080: F0RII-1T 
010: LOCATE X III).Y(I1):PRINTA$(R(JI).3I1:NE 
350 FORFI-ITOIO: I I-FI : LOCATEX ( 1 1 ) . Y ( 1 1 1 : LI 
NEINPUTHI:A*(N ,FI ) -HI: NEXT 
360 NEXT:N-NN: CLS : GOTO 21 0 
370 • 

380 ' ELIMINA 

390 ' 

*00 CC-0:FORI1-1T010:PO-INSTR(A$.MI(1I; 1 : I 
FP050THENCC-CC-1 : TT ( CC ) -I I : PX ( CC ) -PO 
410 NEXT: IFCC-OTHENPRINT: PRINT" COMAN 

DO ERRATO •••»«": 00T02 1 0 

420 F0RII-1T0CC:IFCC-I1THENPX(II*1 l-LEN ( AI 

430 DX-PXIII)-LMITT(II) ) :0$(II)-M1D$(A$,DX 
,PX(It- 1 )«DX) :00SUB1 1 60 : NEXT : FOR 1 1- 1 TON : R( 

II)-II:NEXT:NN-N:NM-N 

4*0 K-N : FOR J I- 1 TOCC : S-0 : FOR I 1- ' TOK : IFINSTR 
(A»(R(II),TT(JI)).0*(JI) ) < > OTHENS-S* 1 :R(S) 

-R 1 1 1 1 

*50 NEXT: I FS-OTHENK-O : GOTO 460ELSEK-S : NEXT 
*60 IFK-OTHENPRINT: PRINT" RECORD NON TRO 
VATO 11": G0T02 1 0 

470 FOR J I- 1 TOK :N-RIJI):F0RHI-1T010:A$(RIJI 
) . HI ) -A I ( NM , Hi ) :NEXT:»IM-NM«1 : NEXT : N-NM : PR I 
NT : PRINT" RECORD CANCELLATI !":G0T02!0 
*80 • 

*90 ' RICERCA 

510 CC-0:F0RII-1T010: PO-INSTR (AI ,MIC 1 1 ) I : I 
FP050THENCC-CC - 1:TT(CC)-I!:PX(CC)-P0 
520 NEXT:1FCC-0THENPRINT:PRINT" COMAN 

DO ERRATO — : G0TO2 1 0 

530 F0RII-1T0CC : IFCC-I ITHENPX 11-1 l-LEN (AI 

5*0 DX-PX(1IMLM(TT<II) ) : OH 1 1 ) -MIDI! A I ,DX 
, PX(II- 1 1-lDX ) : GOSU B 1 160: NEXT : FO 41 I- 1 TON : R ( 
I!)-I!:NEXT:NN-N 

550 K-N:FORJI-1TOCC:S-0:FORII-1TOK:IF INST 
R(AI(R( II) ,TT (Jt ) ) ,0!(J!) X >0THENS-S»1 :R(S 
l-R(II) 

560 NEXT :I FS-OTHENK-O : GOTO570ELSEK -S : NEXT 
570 IFK-OTH£NPRINT:PRINT" RECORD NON TRO 
VATO 11": G0T02 1 0 

580 F0RJI-1T0K:N«R (J!) :G0SUB1080: F0RII-1T 
01 0: LOCATEX ( II ) ,Y(II):PRINTA$(RIJI).II):NE 
XT:L0CATE11 ,19:PRINT" ANCORA <"iK-JI;"> RFC 
ORD " ; : I * -IN PUTII 1 ) : NEXT : N -N N : CLS : G0T02 1 0 
590 • 

600 ’ MOSTRA 

620 IFN-OTHENPRINT : PRINT" RECORD NON TRO 
VATO ! 1 " : G0TO2 1 0 

6 30 NN-N :F0RJ!-1 TON : N - J I : GOSU B 1 0 80 : FORI 1-1 
T010: LOCATEX! Il ) , Y ( ! 1 ) : PR I NTA $ I J I . 1 1 ) : NEXT 
: LOCATE 11 ,19:PR1NT" ANCORA <":NN-J1;"> RECO 
RD ” ; ; I I-INPUT* I 1 ) : NEXT : C LS : N -NN : G0T02 1 0 
640 ' 

650 • STAMPA 

670 IFINSTRIAI.'TUTT" ) < >0THENF0R I I- 1 TON : R I 
Il )-I 1:NEXT : K-N: GOTO’ 40 

680 CC-0:FURI!-1T010:P0-INSTH A* .M* (11)1:1 
FP050THENCC-CC- 1 :TT ICC )-I 1 : PXICC )-P0 




^programma ' J 

MULTIBAUDRATE 


di D. Bonavitacola 


R egistriamo t dati su registratore a qualsiasi ve- 
locità (baud-rate) con questo semplice pro- 
gramma di utility. 

I computer MSX hanno un'ottima gestione softwa- 
re-controlled dell'interfaccia cassette, in particola- 
re, per ciò che riguarda la velocità di trasferimento. 
La possibilità già implementato di due diverse velo- 
cità di 1 200 e 2400 baud, ha richiesto sicuramente 
un certo sforzo nella progettazione delle routines di 
gestione, ampiamente compensato dalle ottime 
prestazioni ottenute dall'interfaccia cassette. 

In particolare sono previste nell'area variabili di si- 
stema tre locazioni in cui sono memorizzati i valori 
standard dei parametri che regolano il baud-rate e 
la frequenza del segnale inviato al registratore in 
fase di scrittura. 

Modificandoli in modo opportuno possiamo con 
facilità lavorare a 500 baud come a 3000 e forse 
più; il programma presentato, vi permetterà un'am- 
pia scelta di valori. 

E per caricare i programmi salvati a velocità diversa 
come si fà? 

Niente di più semplice! 

I normali comandi Basic di caricamento: CLOAD, 
BLOAD, LOAD riconoscono automaticamente il 
baud-rate dei rispettivi files. esattamente come nor- 
malmente avviene con le velocità standard di 
1200/2400. 

Cosa si può fare con un baudrate differente? 

Si può risparmiare spazio su nastro qualora si usi un 
registratore di buona qualità e velocità di trasferi- 
mento elevate, oppure semplicemente personaliz- 
zare l’I/O su cassetta 



ESPERIMENTI 

BASIC 


E saminiamo un programma 
che sfrutta quanto obbiamo 
visto in precedenza. Il program- 
ma proposto è un RENUM in BA- 
SIC. Uno strumento a prima vista 
inutile disponendo il BASIC MSX 
di un potente comando. 

Ci servirà però a comprendere 
ancora meglio come si possa in- 
telligentemente sfruttare questo ti- 
po di conoscenze. 

Il programma scrive nelle locazio- 
ni di memorio in cui sono conser- 
vati i valori relativi al numero di 
linea attuale. Viene rinumerato il 
solo codice di linea e non quindi i 
salti (goto, GOSUB etc). 

Coricate in memoria il program- 
ma del listalo I e quindi salvatelo 
su cassetta. Aggiungete quindi un 
programmo composto da più li- 
nee con numeri compresi tra 1 e 
9998. 

Questa limitazione può essere 
variata ponendo dei limiti diffe- 
renti alla linea 10050. 

Mandate quindi in esecuzione il 
programma con RUN 10000. 
Dopo qualche istante apparirò la 
scritto Fine Renum. 

Eseguite un lisi e vedrete il risul- 
tato. 

Il passo di incremento (detto 
STEP ) è specificato alla linea 
10010. Il numero di inizio della li- 
nea è memorizzato nella variabile 
N (linea 10020). 

La variabile D indica la distanza 
dalla prossima lineo. 

La variabile XX il numero di linea 
attuale. XI e X2 contengono (in 
formato 2 byte) il numero nuovo 
di lineo do modificare. IN è l'indi- 
rizzo della linea. 

LISTATO N. 1 
RENUM BASIC 

di Maurizio Galluzzo 
9999 END: REM RENUM IN 
BASIC 

10000 IN =32768! 

10010 ST= 10 
10020 N=0 

10030 D=PEEKIIN)-256+ 
PEEKIIN+1) 



10040 XX = PEEKIIN+3) + 
(PEEK/IN +411-256 
10050 IF XX > = 9999 THEN 
PRINT "Fine Renum".END 
10060 N=N+ST 
10070 Xl=INT(N/256) 

10080 X2=IN/256-X 1 ) ‘256 
10090 POKE IN+3.X2 
10100 POKE IN+4.X1 
10110 IN =32768+0-1 
10120 GOTO 10030 
Il programma può essere modifi- 
cato aggiungendo routines con 
differenti funzioni, in modo (ad 
esempio) da eliminare le linee che 
contengono un certo comando 
p.e. REM. Oppure sostituire dei 
comandi automaticamente. Po- 
trete anche creare dei programmi 
fantasma (con un solo numero di 
linea) o proteggere i vostri listati, 
(solo chi conosce l'esatto numero 
di può farli girare). 


LA “MENTE” 

DEL COMPUTER 


di G. Ferri 

I ntelligenza Artificiale: che co- 
s'è? 

Nel 1956, a Dartmouth, Marvin 
Minsky del Massachussets Instia- 
te of Tecnology, John McCarthy 


della Stanford University, Claude 
Shannon dei Bell Telephone La- 
boratories, fondandola ufficial- 
mente, l'hanno definito come il 
tentativo di riprodurre attività con- 
siderate intelligenti per mezzo di 
processi automatici. 

All'inizio si è fatta soprattutto ri- 
cerco pura senza fini applicativi 
immediati. Ad esempio ci si è de- 
dicati al gioco degli scocchi e al 
cosiddetto "GPS", (generai pro- 
blems solver). 

In un secondo tempo si è pensato 
alle applicazioni pratiche per veri- 
ficare la validità delle ipotesi di 
partenza. 

E di quel periodo, per esempio, la 
creazione del sistema esperto 
"Mycin", in grado di eseguire at- 
tività di consulenza nella diagno- 
stica medica. 

Al momento attuale ci si dedica 
soprattutto a delimitare problemi 
precisi da affrontare, volta per 
volta, per raggiungere un obietti- 
vo ben preciso e limitato. 

In breve, l'intelligenza artificiale, 
all'inizio, si è occupato di capire 
come gli uomini imparano e come 
una macchina potrebbe acquisire 
nuove conoscenze in particolari 
settori. 

Ci si è accorti, però, che, per otte- 
nere risultati veramente soddisfa- 
centi, c'era un enorme dispendio 
di tempo e di energia. 

Forse non sembra, ma il cervello 
umano adopera meccanismi non 
cosi banali per codificare e deco- 
dificare un messaggio, ovvero ciò 
che proviene dal mondo esterno. 
L'esempio classico è quello del 
leggere o scrivere un testo. 

Va soprattutto chiorito il ruolo fon- 
damentale che ha lo nostra me- 
moria nel processo di compren- 
sione: infatti, la mente umana, im- 
magazzina determinate cono- 
scenze che vengono in seguito 
riutilizzate in situazioni simili a 
quelle originarie, in cui è avvenuto 
un processo di conoscenza. 
Quindi l'intelligenza artificiale di 
costruire dei sistemi "intelligenti", 
cosi detti in quanto emulano le 
doti intellettuali dell'uomo; si cer- 
ca di insegnare alla macchina a 
comportarsi come gli uomini sce- 
gliendo le soluzioni più soddisfa- 
centi. 

Per fare un esempio chiaro a tutti 




parliamo del gioco degli scacchi: 
è questo un ottimo test per valuta- 
re le capacità "intellettuali" della 
macchina. 

Per prima cosa va detto che non è 
possibile riuscire a immogazzina- 
re tutte le mosse possibili consen- 
tite ai 32 pezzi degli scacchi sui 64 
quadratini della scacchiera 
Si procede alloro come si la con 
gli uomini: gli si insegna a gio- 
care! 

Cioè si scrive un programma che, 
per prima cosa, conosca le regole 
del gioco; ma poiché gli scacchi 
sono un gioco di strategia è ne- 
cessario che anche il programmo 
sia in grado, come l'uomo, di 
analizzare le mosse migliori, di 
prevedere o prevenire quelle del- 
l'avversario. 

Perciò il programma in questione 
dovrà essere in grado di lare il 
maggior numero di analisi possi- 
bili (detto in BASIChese, ci saran- 
no molti IF-THEN). 

Già da questo potete intuire co- 
me sia più difficile battere a scac- 
chi un programma scritto su 64K 
piuttosto che uno scritto su 16K, 
dato che nel primo computer c'è 
più memoria si potranno analiz- 
zare più mosse di quanto si possa 
lare sul secondo. 

Sempre rimanendo nell'ambito di 
questo gioco è chiaro che più il 
computer ha memoria più gioche- 
rà bene; a tutl'oggi si tengono 
campionati di scacchi uomo con- 
tro computer e spesso lo macchi 
na riesce a battere i maestri del 
gioco. 

Un primo risultato che si è già ot- 
tenuto è rappresentato dal fatto 
che il computer esegue le opera- 
zioni di analisi e calcolo molto più 
velocemente di quanto faccia 
l'uomo; pertanto in tutte le appli- 
cazioni di intelligenza artificiale ci 
si può avvalere di questa impor- 
tante capacità. 

È sciocco tuttavia pensare che 
con queste macchine si possano 
risolvere problemi che nessun uo- 
mo può risolvere: a tutti i traguar- 
di o cui arrivano le macchine do- 
tate di "intelligenza artificiale' 
può arrivare anche l'uomo, te- 
nendo conto però che questi ne- 
cessiterebbe di molto più tempo. 
Si può quindi dire che si cerca di 
far "ragionare" la macchina. 



Possiamo individuare alcune ca- 
tegorie di applicazioni per l'intelli- 
genza artificiale: 

- la robotica, dove ì compiti che 
di solito sono eseguiti do persone 
vengono svolti dalle macchine, 

- i linguaggi naturali, ovvero la 
ricerca di una comunicazione con 
il computer fondata sul linguag- 
gio di ogni giorno, non quindi ba- 
sata sui vari linguaggi di pro- 
grammazione tipo BASIC, Pascal, 
Logo e cosi via, 

- il trattamento e il riconoscimen- 
to delle immagini; 

- i cosiddetti "sistemi esperti", 
che sono il tipo di applicazione di 
maggior successo commerciale: 
si tratta di quei programmi che 
donno alla macchina l'esperienza 
specialistico di un uomo in un cer- 
to campo. 

Un esempio che può dare un'idea 
del valore di questo argomento 
(gli scacchi sono solo un passa- 


tempo, un punto di partenza se 
vogliamo) ci viene dato dalla me- 
dicina. 

In questo campo i sistemi esperti 
sono in grado di svolgere una 
gran mole di lavoro, specie nella 
diagnostica dove i risultati sono 
spesso superiori a quelli di medici 
specialisti. 

Capire come questo può avvenire 
è abbastanza semplice: basta im- 
mettere nella memoria del com- 
puter il maggior numero possibile 
di casi. In base a questa esperien- 
za acquisita e confrontando le 
analisi effettuate sul paziente, è 
possibile ritrovare casi analoghi 
già visti in precedenza ed emette- 
re quindi una diagnosi probabile. 
Come vedete la macchina non fa 
altro che ripetere quello che fa- 
rebbe il medico stesso, solo che 
impiega molto meno tempo. 
Sistemi esperti vengono usati mol- 
to spesso pure nell'Industria, an- 
che se l'aspetto più rilevante, per 
quanto riguarda l'intelligenza arti- 
ficiale, è dato dalle applicazioni di 
robotica, specie nelle grandi fab- 
briche. 
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